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

expose a Storage bug

Browse source
This commit is contained in:
Colin Kuskie 2006-05-16 22:45:46 +00:00
parent 19658dc625
commit c014d39c28
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Storage.t
View file

@ -18,7 +18,7 @@ use WebGUI::Storage;
use Test::More; use Test::More;
plan tests => 7; # increment this value for each test you create plan tests => 9; # increment this value for each test you create
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
@ -44,6 +44,11 @@ my $storageDir1 = join '/', $uploadDir, 'fo', 'ob', 'foobar';
ok( (-e $storageDir1 and -d $storageDir1), "Storage location created and is a directory"); ok( (-e $storageDir1 and -d $storageDir1), "Storage location created and is a directory");
$storage1->delete;
is ( $storage1, undef, 'Object undeffed');
is ( ref $storage1, 'SCALAR', 'Object undeffed');
END { END {
ref $storage1 eq "WebGUI::Storage" and $storage1->delete; ref $storage1 eq "WebGUI::Storage" and $storage1->delete;
} }