@@ -, +, @@ will not warn anymore --- t/Cache.t | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) --- a/t/Cache.t +++ a/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; --