From d14bbff4628f11b1f9dd083e8364032ece38099a Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
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 <jonathan.druart@bugs.koha-community.org>
---
 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