From 1757047e6086f6a2d2fba18184e773940ace31e7 Mon Sep 17 00:00:00 2001 From: Jacek Ablewicz Date: Thu, 31 Mar 2016 12:31:26 +0200 Subject: [PATCH] Bug 16166: Bugfix for t/Cache.t tests #34 & #37 Test plan addendum: 5) prove t/Cache.t --- t/Cache.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/Cache.t b/t/Cache.t index 8adaf1c..6f74f90 100644 --- a/t/Cache.t +++ b/t/Cache.t @@ -183,7 +183,7 @@ SKIP: { is_deeply( $cache->get_from_cache('test_deep_copy_array'), [ qw ( an array ref ) ], 'An array will be deep copied'); $item_from_cache = $cache->get_from_cache('test_deep_copy_array', { unsafe => 1 }); @$item_from_cache = qw( another array ref ); - is_deeply( $cache->get_from_cache('test_deep_copy_array'), [ qw ( another array ref ) ], 'An array will not be deep copied if the unsafe flag is set'); + is_deeply( $cache->get_from_cache('test_deep_copy_array', { unsafe => 1 }), [ qw ( another array ref ) ], 'An array will not be deep copied if the unsafe flag is set'); # Hash my %item = ( a => 'hashref' ); $cache->set_in_cache('test_deep_copy_hash', \%item); @@ -192,7 +192,7 @@ SKIP: { is_deeply( $cache->get_from_cache('test_deep_copy_hash'), { a => 'hashref' }, 'A hash will be deep copied'); $item_from_cache = $cache->get_from_cache('test_deep_copy_hash', { unsafe => 1}); %$item_from_cache = ( another => 'hashref' ); - is_deeply( $cache->get_from_cache('test_deep_copy_hash'), { another => 'hashref' }, 'A hash will not be deep copied if the unsafe flag is set'); + is_deeply( $cache->get_from_cache('test_deep_copy_hash', { unsafe => 1 }), { another => 'hashref' }, 'A hash will not be deep copied if the unsafe flag is set'); } END { -- 1.7.10.4