From c014d39c28bd7ee862decb4f510e9b869666b256 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Tue, 16 May 2006 22:45:46 +0000 Subject: [PATCH] expose a Storage bug --- t/Storage.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/t/Storage.t b/t/Storage.t index 44896fbc7..de8974e94 100644 --- a/t/Storage.t +++ b/t/Storage.t @@ -18,7 +18,7 @@ use WebGUI::Storage; 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; @@ -44,6 +44,11 @@ my $storageDir1 = join '/', $uploadDir, 'fo', 'ob', 'foobar'; 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 { ref $storage1 eq "WebGUI::Storage" and $storage1->delete; }