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

basics all tested

Browse source
This commit is contained in:
JT Smith 2009-09-24 23:12:20 -05:00
parent eff27a141d
commit 66db563c39
2 changed files with 10 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

9
t/Cache.t
View file

@ -29,7 +29,7 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
plan tests => 7; # Increment this number for each test you create
plan tests => 10; # Increment this number for each test you create
#----------------------------------------------------------------------------
@ -44,7 +44,12 @@ is($cache->get(["andy", "dufresne"]), "Prisoner", "set/get composite");
my ($a, $b) = @{$cache->mget(["Shawshank",["andy", "dufresne"]])};
is($a, "Prison", "mget first value");
is($b, "Prisoner", "mget second value");
$cache->delete("Shawshank");
is($cache->get("Shawshank"), undef, 'delete');
$cache->flush;
is($cache->get(["andy", "dufresne"]), undef, 'flush');
$cache->setByHttp("google", "http://www.google.com/");
cmp_ok($cache->get("google"), 'ne', '', 'setByHttp');
#----------------------------------------------------------------------------