diff --git a/t/Storage.t b/t/Storage.t index 589a74a6f..60efaf376 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 => 8; # increment this value for each test you create my $session = WebGUI::Test->session; @@ -46,6 +46,8 @@ ok( (-e $storageDir1 and -d $storageDir1), "Storage location created and is a di $storage1->delete; +ok( !(-e $storageDir1), "Storage location deleted"); + END { ref $storage1 eq "WebGUI::Storage" and $storage1->delete; } diff --git a/t/User.t b/t/User.t index 479de9de7..9ef4df6ba 100644 --- a/t/User.t +++ b/t/User.t @@ -18,7 +18,7 @@ use WebGUI::Utility; use WebGUI::Cache; use WebGUI::User; -use Test::More tests => 85; # increment this value for each test you create +use Test::More tests => 81; # increment this value for each test you create my $session = WebGUI::Test->session; @@ -272,16 +272,10 @@ ok($user->isInGroup(14), "New user is in group 14(Product Managers)"); $user->deleteFromGroups([3]); ok(!$user->isInGroup(3), "deleteFromGroups: New user is not in group 3(Admin)"); -ok($user->isInGroup(11), "New user still in group 11 due to caching (Secondary Admins)"); -ok($user->isInGroup(12), "New user still in group 12 due to caching (Turn On Admin)"); -ok($user->isInGroup(13), "New user still in group 13 due to caching (Export Managers)"); -ok($user->isInGroup(14), "New user still in group 14 due to caching (Product Managers)"); - -WebGUI::Cache->new($session, 'myKey')->flush(); -ok($user->isInGroup(11), "Flush cache, new user not in group 11 (Secondary Admins)"); -ok($user->isInGroup(12), "Flush cache, new user not in group 12 (Turn On Admin)"); -ok($user->isInGroup(13), "Flush cache, new user not in group 13 (Export Managers)"); -ok($user->isInGroup(14), "Flush cache, new user not in group 14 (Product Managers)"); +ok(!$user->isInGroup(11), "Flush cache, new user not in group 11 (Secondary Admins)"); +ok(!$user->isInGroup(12), "Flush cache, new user not in group 12 (Turn On Admin)"); +ok(!$user->isInGroup(13), "Flush cache, new user not in group 13 (Export Managers)"); +ok(!$user->isInGroup(14), "Flush cache, new user not in group 14 (Product Managers)"); $user->delete;