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

17
lib/WebGUI/Cache.pm
View file

@ -245,8 +245,8 @@ A time in seconds for the cache to exist. When you override default it to 60 sec
sub set { sub set {
my ($self, $name, $value, $ttl) = @_; my ($self, $name, $value, $ttl) = @_;
$ttl ||= 60; $ttl ||= 60;
$value = Storable::nfreeze(\(scalar $value)); # Storable doesn't like non-reference arguments, so we wrap it in a scalar ref. my $frozenValue = Storable::nfreeze(\(scalar $value)); # Storable doesn't like non-reference arguments, so we wrap it in a scalar ref.
Memcached::libmemcached::memcached_set($self->getMemcached, $self->parseKey($name), $value, $ttl); Memcached::libmemcached::memcached_set($self->getMemcached, $self->parseKey($name), $frozenValue, $ttl);
return $value; return $value;
} }
@ -284,20 +284,9 @@ sub setByHttp {
# show throw exception # show throw exception
return undef; return undef;
} }
return $self->set($response->decoded_content, $ttl); return $self->set($name, $response->decoded_content, $ttl);
} }
#-------------------------------------------------------------------
=head2 stats ( )
Return a formatted text string describing cache usage. Must be overridden.
=cut
sub stats {
}
1; 1;

9
t/Cache.t
View file

@ -29,7 +29,7 @@ my $session = WebGUI::Test->session;
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Tests # 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"]])}; my ($a, $b) = @{$cache->mget(["Shawshank",["andy", "dufresne"]])};
is($a, "Prison", "mget first value"); is($a, "Prison", "mget first value");
is($b, "Prisoner", "mget second 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');
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------