summaryrefslogtreecommitdiffstats
path: root/t/cache.t
diff options
context:
space:
mode:
Diffstat (limited to 't/cache.t')
-rw-r--r--t/cache.t8
1 files changed, 7 insertions, 1 deletions
diff --git a/t/cache.t b/t/cache.t
index 6c44a15..ded5ad7 100644
--- a/t/cache.t
+++ b/t/cache.t
@@ -44,7 +44,13 @@ ok(Bar->cache_expires(60),'setting cache expiration');
ok(Bar->cache_servers(qw/127.0.0.1:11211/),'setting cache servers');
ok(Bar->compress_threshold(10_000),'setting cache servers');
-ok(4 == Bar->retrieve_all(),'retrieve all objects');
+my @objs = ();
+for my $id (1 .. 4)
+{
+ push @objs, Bar->retrieve($id);
+}
+
+ok(4 == @objs,'retrieve all objects');
ok(4 == scalar keys %{$Jaos::DBI::cache->get_multi( qw/Bar:1 Bar:2 Bar:3 Bar:4/ )},'check cache is initially populated');
# extract our baz objects into the cache