From d14bbff4628f11b1f9dd083e8364032ece38099a Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 2 May 2016 12:39:29 +0100 Subject: [PATCH] Bug 16412: Make sure Koha::Cache->set_in_cache will not warn anymore Signed-off-by: Jonathan Druart --- t/Cache.t | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/t/Cache.t b/t/Cache.t index 5a5c248..101f723 100644 --- a/t/Cache.t +++ b/t/Cache.t @@ -17,7 +17,8 @@ use Modern::Perl; -use Test::More tests => 40; +use Test::More tests => 41; +use Test::Warn; my $destructorcount = 0; @@ -40,6 +41,16 @@ SKIP: { is( $cache->get_from_cache("not in here"), undef, "fetching item NOT in cache" ); + # set_in_cache should not warn + my $warn; + { + local $SIG{__WARN__} = sub { + $warn = shift; + }; + $cache->set_in_cache( "a key", undef ); + is( $warn, undef, 'Koha::Cache->set_in_cache should not return any warns' ); + } + # test expiry time in cache $cache->set_in_cache( "timeout", "I AM DATA", 1 ); # expiry time of 1 second sleep 2; -- 2.7.0