oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix broken tests that were creating odd directories.

Browse source
This commit is contained in:
Colin Kuskie 2009-08-24 03:39:04 +00:00
parent 0d0e5747d8
commit 6634f3e337
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
t/Storage.t
View file

@ -75,7 +75,7 @@ my $uploadsBase = Path::Class::Dir->new($uploadDir);
my $newGuid = $session->id->generate();
my @guidPathParts = (substr($newGuid, 0, 2), substr($newGuid, 2, 2), $newGuid);
my $guidDir = $uploadsBase->subdir(@guidPathParts);
$guidDir->mkpath(0);
$guidDir->mkpath();
ok(-e $guidDir->stringify, 'created GUID storage location for backwards compatibility testing');
my $guidStorage = WebGUI::Storage->get($session, $newGuid);
@ -320,7 +320,8 @@ cmp_bag($s3copy->getFiles(), [ @filesToCopy ], 'copy: passing explicit variable
my $deepDir = $deepStorage->getPathClassDir();
my $deepDeepDir = $deepDir->subdir('deep');
my $errorStr;
$deepDeepDir->mkpath(1, undef, { error => \$errorStr } );
my @foo = $deepDeepDir->mkpath({ error => \$errorStr } );
diag Dumper \@foo;
$deepStorage->addFileFromScalar('deep/file', 'deep file');
cmp_bag(
$deepStorage->getFiles('all'),
@ -435,7 +436,7 @@ cmp_bag(
my $deepDir = $deepStorage->getPathClassDir();
my $deepDeepDir = $deepDir->subdir('deep');
my $errorStr;
$deepDeepDir->mkpath(1, undef, { error => \$errorStr } );
$deepDeepDir->mkpath({ error => \$errorStr } );
$deepStorage->addFileFromScalar('deep/file', 'deep file');
cmp_bag(
$deepStorage->getFiles('all'),
@ -500,7 +501,7 @@ WebGUI::Test->storagesToDelete($deepStorage);
my $deepDir = $deepStorage->getPathClassDir();
my $deepDeepDir = $deepDir->subdir('deep');
my $errorStr;
$deepDeepDir->mkpath(1, undef, { error => \$errorStr } );
$deepDeepDir->mkpath({ error => \$errorStr } );
ok(-e $deepDeepDir->stringify, 'created storage directory with a subdirectory for testing');
$deepStorage->setPrivileges(3,3,3);