use Modern::Perl;
-use Test::More tests => 40;
+use Test::More tests => 41;
+use Test::Warn;
my $destructorcount = 0;
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;