From 164608430ce63ee8e6d539920335a7f27139f463 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 22 Jun 2016 16:10:23 +0100 Subject: [PATCH] Bug 17189: Add the ability to define several memcached namespaces - tests Signed-off-by: Jacek Ablewicz Signed-off-by: Tomas Cohen Arazi https://bugs.koha-community.org/show_bug.cgi?id=11921 --- t/Cache.t | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) diff --git a/t/Cache.t b/t/Cache.t index 1a25b77..759e993 100644 --- a/t/Cache.t +++ b/t/Cache.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 42; +use Test::More tests => 43; use Test::Warn; my $destructorcount = 0; @@ -256,6 +256,26 @@ subtest 'Koha::Cache::Memory::Lite' => sub { undef, "fetching flushed item from cache" ); }; +subtest 'Koha::Caches' => sub { + plan tests => 8; + my $default_cache = Koha::Cache->get_instance(); + my $another_cache = Koha::Cache->get_instance('another_cache'); + $default_cache->set_in_cache('key_a', 'value_a'); + $default_cache->set_in_cache('key_b', 'value_b'); + $another_cache->set_in_cache('key_a', 'another_value_a'); + $another_cache->set_in_cache('key_b', 'another_value_b'); + is( $default_cache->get_from_cache('key_a'), 'value_a' ); + is( $another_cache->get_from_cache('key_a'), 'another_value_a' ); + is( $default_cache->get_from_cache('key_b'), 'value_b' ); + is( $another_cache->get_from_cache('key_b'), 'another_value_b' ); + $another_cache->clear_from_cache('key_b'); + is( $default_cache->get_from_cache('key_b'), 'value_b' ); + is( $another_cache->get_from_cache('key_b'), undef ); + $another_cache->flush_all(); + is( $default_cache->get_from_cache('key_a'), 'value_a' ); + is( $another_cache->get_from_cache('key_a'), undef ); +}; + END { SKIP: { $ENV{ MEMCACHED_NAMESPACE } = 'unit_tests'; -- 2.7.4