215abc8024
1. Replace all instances of memoize_memcached with appropriate calls into Koha::Cache: * reports/guided_reports.pl * C4::Biblio::GetMarcStructure * C4::Languages::getFrameworkLanguages * C4::Languages::getAllLanguages * C4::SQLHelper::GetPrimaryKeys * C4::SQLHelper::_get_columns 2. Replace all references to memcached with the appropriate calls into Koha::Cache in C4::Context. Test plan : * have DEBUG env set to 1 * reach addbiblio page to test the patch in Biblio.pm, or setup more than 1 language * you should see in the logs that you're reading and writing from cache * run the test suite twice both with and without the following environment variables set: export MEMCACHED_SERVERS=127.0.0.1:11211 export MEMCACHED_NAMESPACE=KOHA export CACHING_SYSTEM=memcached Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz> I'm unsure about some of the caching times 10000 is a long long time, but other than that, works fine.
43 lines
1.6 KiB
Perl
43 lines
1.6 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# Tests Koha::Cache and whichever type of cache is enabled (through Koha::Cache)
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More tests => 9;
|
|
|
|
BEGIN {
|
|
use_ok('Koha::Cache');
|
|
use_ok('C4::Context');
|
|
}
|
|
|
|
SKIP: {
|
|
skip "Memcached not enabled", 7 unless Koha::Cache->is_cache_active();
|
|
|
|
my $cache = Koha::Cache->new ();
|
|
|
|
# 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");
|
|
}
|