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

Make creating a Storage object with a short ID an error.

Browse source 
Add a test to check for that.
Beginning of documentation for VersionTag.
This commit is contained in:
Colin Kuskie 2006-05-24 03:03:47 +00:00
parent e6ef875b51
commit b02386064d
5 changed files with 83 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

42
t/Storage.t
View file

@ -19,7 +19,7 @@ use WebGUI::Storage;
use Test::More;
plan tests => 9; # increment this value for each test you create
plan tests => 22; # increment this value for each test you create
my $session = WebGUI::Test->session;
@ -43,6 +43,8 @@ is( $storage1->getLastError, undef, "No errors during path creation");
my $storageDir1 = join '/', $uploadDir, 'fo', 'ob', 'foobar';
is ($storageDir1, $storage1->getPath, 'path calculated correctly');
ok( (-e $storageDir1 and -d $storageDir1), "Storage location created and is a directory");
$storage1->delete;
@ -51,11 +53,47 @@ ok( !(-e $storageDir1), "Storage location deleted");
undef $storage1;
$storage1 = WebGUI::Storage->get($session, 'notAGUID');
my $storage2 = WebGUI::Storage->get($session, 'notAGoodId');
ok(! $storage2->getErrorCount, 'No errors due to a shared common root');
ok( (-e $storage1->getPath and -d $storage1->getPath), "Storage location 1 created and is a directory");
ok( (-e $storage2->getPath and -d $storage2->getPath), "Storage location 2 created and is a directory");
$storage1->delete;
undef $storage1;
ok( (-e $storage2->getPath and -d $storage2->getPath), "Storage location 2 not touched");
$storage2->delete;
my $storageDir2 = join '/', $uploadDir, 'no';
ok (!(-e $storageDir2), "Storage2 cleaned up properly");
undef $storage2;
my $storage3 = WebGUI::Storage->get($session, 'bad');
is( $storage3->getErrorCount, 1, 'Error during creation of object due to short GUID');
my $dir3 = join '/', $uploadDir, 'ba';
ok(!(-e $dir3 and -d $dir3), 'No directories created for short guid');
TODO: {
local $TODO = "Tests to make later";
ok(0, 'Create object with 1 character GUID');
ok(0, 'Add a file to the storage location via addFileFromScalar');
ok(0, 'getSize works correctly');
ok(0, 'Add a file to the storage location via addFileFromFilesystem');
ok(0, 'Add a file to the storage location via addFileFromHashref');
ok(0, 'Test renaming of files inside of a storage location');
}
END {
ref $storage1 eq "WebGUI::Storage" and $storage1->delete;
foreach my $stor ($storage1, $storage2, $storage3) {
ref $stor eq "WebGUI::Storage" and $stor->delete;
}
}