View | Details | Raw Unified | Return to bug 16412
Collapse All | Expand All

(-)a/t/Cache.t (-2 / +12 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 40;
20
use Test::More tests => 41;
21
use Test::Warn;
21
22
22
my $destructorcount = 0;
23
my $destructorcount = 0;
23
24
Lines 40-45 SKIP: { Link Here
40
    is( $cache->get_from_cache("not in here"),
41
    is( $cache->get_from_cache("not in here"),
41
        undef, "fetching item NOT in cache" );
42
        undef, "fetching item NOT in cache" );
42
43
44
    # set_in_cache should not warn
45
    my $warn;
46
    {
47
        local $SIG{__WARN__} = sub {
48
            $warn = shift;
49
        };
50
        $cache->set_in_cache( "a key", undef );
51
        is( $warn, undef, 'Koha::Cache->set_in_cache should not return any warns' );
52
    }
53
43
    # test expiry time in cache
54
    # test expiry time in cache
44
    $cache->set_in_cache( "timeout", "I AM DATA", 1 ); # expiry time of 1 second
55
    $cache->set_in_cache( "timeout", "I AM DATA", 1 ); # expiry time of 1 second
45
    sleep 2;
56
    sleep 2;
46
- 

Return to bug 16412