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

fixed tests

Browse source 
preparing for release
This commit is contained in:
JT Smith 2007-05-23 17:42:51 +00:00
parent 89d48adad2
commit f5f358ccf3
7 changed files with 13 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/Storage.t
View file

@ -124,7 +124,10 @@ ok (!(-e $storageDir2), "Storage2 cleaned up properly");
undef $storage2;
my @dirOptions = qw/bad bAd Bad BAd/;
## NOTE: On case insensitive file systems more matches can occur on this test
## and if all of these exist, then the next test will fail.
my @dirOptions = qw/bad bAd Bad BAd Zod God Mod Tod Rod Bod Lod/;
my $skipDirCheck = 0;
my ($dir3, $dirOpt);
@ -133,7 +136,6 @@ CHECKDIR: while ($dirOpt = pop @dirOptions) {
$dir3 = join '/', $uploadDir, substr $dirOpt,0,2;
last CHECKDIR if !-e $dir3;
}
my $storage3 = WebGUI::Storage->get($session, $dirOpt);
is( $storage3->getErrorCount, 1, 'Error during creation of object due to short GUID');