1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#########################
use Test::More tests => 27;
use Test::Deep;
BEGIN { use_ok('Cache::FastMmap') };
use Data::Dumper;
use strict;
#########################
# Test maintaining expire_on through get_and_set
# Test a backing store just made of a local hash
my %BackingStore = ();
my $FC = Cache::FastMmap->new(
serializer => '',
init_file => 1,
num_pages => 1,
page_size => 8192,
context => \%BackingStore,
write_cb => sub { $_[0]->{$_[1]} = $_[2]; },
write_action => 'write_back',
expire_time => 3,
);
my $epoch = time;
my $now = $epoch;
Cache::FastMmap::_set_time_override($now);
ok( defined $FC );
ok( $FC->set('foo', '123abc', 2), 'store item 1');
ok( $FC->set('bar', '456def', 3), 'store item 2');
ok( $FC->set('baz', '789ghi'), 'store item 3');
is( $FC->get('foo'), '123abc', "get item 1");
is( $FC->get('bar'), '456def', "get item 2");
is( $FC->get('baz'), '789ghi', "get item 3");
$now = $epoch+1;
Cache::FastMmap::_set_time_override($now);
sub cb { return ( (defined $_[1] ? $_[1] : 'boo') . 'a', { expire_on => $_[2]->{expire_on} }); };
sub cb2 { return ($_[1] . 'a'); };
is( $FC->get_and_set('foo', \&cb), '123abca', "get_and_set item 1 after sleep 1");
is( $FC->get_and_set('bar', \&cb), '456defa', "get_and_set item 2 after sleep 1");
is( $FC->get_and_set('baz', \&cb2), '789ghia', "get_and_set item 3 after sleep 1");
is( $FC->get_and_set('gah', \&cb), 'booa', "get_and_set item 4 after sleep 1");
my @e = $FC->get_keys(2);
cmp_deeply(
\@e,
bag(
superhashof({ key => 'foo', value => '123abca', last_access => num($now, 1), expire_on => num($now+1, 1) }),
superhashof({ key => 'bar', value => '456defa', last_access => num($now, 1), expire_on => num($now+2, 1) }),
superhashof({ key => 'baz', value => '789ghia', last_access => num($now, 1), expire_on => num($now+3, 1) }),
superhashof({ key => 'gah', value => 'booa', last_access => num($now, 1), expire_on => num($now+3, 1) }),
),
"got expected keys"
) || diag explain [ $now, \@e ];
$now = $epoch+2;
Cache::FastMmap::_set_time_override($now);
is( $FC->get('foo'), undef, "get item 1 after sleep 2");
is( $FC->get('bar'), '456defa', "get item 2 after sleep 2");
is( $FC->get('baz'), '789ghia', "get item 3 after sleep 2");
is( $FC->get_and_set('bar', \&cb), '456defaa', "get_and_set item 2 after sleep 2");
@e = $FC->get_keys(2);
cmp_deeply(
\@e,
bag(
superhashof({ key => 'bar', value => '456defaa', last_access => num($now, 1), expire_on => num($now+1, 1) }),
superhashof({ key => 'baz', value => '789ghia', last_access => num($now, 1), expire_on => num($now+2, 1) }),
superhashof({ key => 'gah', value => 'booa', last_access => num($now-1, 1), expire_on => num($now+2, 1) }),
),
"got expected keys"
) || diag explain [ $now, \@e ];
$now = $epoch+3;
Cache::FastMmap::_set_time_override($now);
is( $FC->get('foo'), undef, "get item 1 after sleep 3");
is( $FC->get('bar'), undef, "get item 2 after sleep 3");
is( $FC->get('baz'), '789ghia', "get item 3 after sleep 3");
@e = $FC->get_keys(2);
cmp_deeply(
\@e,
bag(
superhashof({ key => 'baz', value => '789ghia', last_access => num($now, 1), expire_on => num($now+1, 1) }),
superhashof({ key => 'gah', value => 'booa', last_access => num($now-2, 1), expire_on => num($now+1, 1) }),
),
"got expected keys"
) || diag explain [ $now, \@e ];
$now = $epoch+4;
Cache::FastMmap::_set_time_override($now);
is( $FC->get('foo'), undef, "get item 1 after sleep 4");
is( $FC->get('bar'), undef, "get item 2 after sleep 4");
is( $FC->get('baz'), undef, "get item 3 after sleep 4");
@e = $FC->get_keys(2);
cmp_deeply(
\@e,
bag(),
"got expected keys (empty)"
) || diag explain [ $now, \@e ];
$FC->empty(1);
ok( eq_hash(\%BackingStore, { foo => '123abca', bar => '456defaa', baz => '789ghia', gah => 'booa' }), "items match expire 2");
|
