Attachment 7343 Details for Bug 7248 – Unit tests for Koha::Cache (incluedes Koha::Cache::Memcached)

[patch] Unit tests for Koha::Cache (incluedes Koha::Cache::Memcached)

0001-Bug-7248-Unit-test-for-Koha-Cache.pm-which-includes-.patch (text/plain), 2.11 KB, created by Chris Hall on 2012-01-27 02:25:49 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Chris Hall

Created: 2012-01-27 02:25:49 UTC

Size: 2.11 KB

patch

obsolete

>From 98710e2c08e9813bf4f8ceb943688e45e6ebdbe1 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] Bug 7248 Unit test for Koha/Cache.pm (which includes Koha/Cache/Memcahed.pm)
>
>---
> t/Cache.t |   33 +++++++++++++++++++++++++++++----
> 1 files changed, 29 insertions(+), 4 deletions(-)
>
>diff --git a/t/Cache.t b/t/Cache.t
>index dca575b..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('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