Attachment 6372 Details for Bug 7248 – Update to t/Cache.t for better testing of Koha/Cache.pm and Koha/Memcached.pm

[patch] Update to t/Cache.t for better testing of Koha/Cache.pm and Koha/Memcached.pm

cache-test.patch (text/plain), 2.13 KB, created by Chris Hall on 2011-11-21 20:04:06 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Chris Hall

Created: 2011-11-21 20:04:06 UTC

Size: 2.13 KB

patch

obsolete

>From 7fb6dcad0b2ff8872505e042c6c90b4d9eb4715c Mon Sep 17 00:00:00 2001
>From: Chris Hall <chrish@catalyst.net.nz>
>Date: Tue, 22 Nov 2011 08:55:19 +1300
>Subject: [PATCH] Unit test for Koha/Cache.pm (which includes Koha/Cache/Memcahed.pm)
>
>---
> t/Cache.t |   35 ++++++++++++++++++++++++++++++-----
> 1 files changed, 30 insertions(+), 5 deletions(-)
>
>diff --git a/t/Cache.t b/t/Cache.t
>index 75f5acf..a75ef52 100644
>--- a/t/Cache.t
>+++ b/t/Cache.t
>@@ -1,14 +1,39 @@
> #!/usr/bin/perl
>-#
>-# This Koha test module is a stub!  
>-# Add more tests here!!!
>+
>+# Tests Koha::Cache and Koha::Cache::Memcached (through Koha::Cache)
> 
> use strict;
> use warnings;
> 
>-use Test::More tests => 1;
>+use Test::More tests => 9;
> 
> BEGIN {
>-        use_ok('C4::Cache');
>+        use_ok('Koha::Cache');
>+        use_ok('C4::Context');
> }
> 
>+my $cache = Koha::Cache->new ( { 'cache_servers' => C4::Context->config('memcached_servers') } );
>+
>+# test fetching an item that isnt in the cache
>+is( $cache->get_from_cache("not in here"), undef, "fetching item NOT in cache");
>+
>+# test expiry time in cache
>+$cache->set_in_cache("timeout", "I AM DATA", 1); # expiry time of 1 second
>+sleep 1;
>+is( $cache->get_from_cache("timeout"), undef, "fetching expired item from cache");
>+
>+# test fetching a valid, non expired, item from cache
>+$cache->set_in_cache("clear_me", "I AM MORE DATA", 1000); # overly large expiry time, clear below
>+$cache->set_in_cache("dont_clear_me", "I AM MORE DATA22", 1000); # overly large expiry time, clear below
>+is( $cache->get_from_cache("clear_me"), "I AM MORE DATA", "fetching valid item from cache");
>+
>+# test clearing from cache
>+$cache->clear_from_cache("clear_me");
>+is( $cache->get_from_cache("clear_me"), undef, "fetching cleared item from cache");
>+is( $cache->get_from_cache("dont_clear_me"), "I AM MORE DATA22", "fetching valid item from cache (after clearing another item)");
>+
>+#test flushing from cache
>+$cache->set_in_cache("flush_me", "testing 1 data");
>+$cache->flush_all;
>+is( $cache->get_from_cache("flush_me"), undef, "fetching flushed item from cache");
>+is( $cache->get_from_cache("dont_clear_me"), undef, "fetching flushed item from cache");
>-- 
>1.7.4.1
>

Actions: View | Diff | Splinter Review

Attachments on bug 7248: 6353 | 6354 | 6356 | 6359 | 6372 | 6771 | 6772 | 7342 | 7343 | 7366 | 7367 | 9348 | 9349 | 9352 | 9353 | 9360 | 9552 | 9553 | 9554 | 9555 | 9556 | 9567 | 9568 | 9569 | 9571