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
|
#!/usr/bin/perl -w
use strict;
use Net::DRI::Cache;
use Test::More tests => 12;
my $c;
$c=Net::DRI::Cache->new(-1);
isa_ok($c,'Net::DRI::Cache');
$c->set('regname','type','key',{w=>'a'});
is_deeply($c->{data},{},'nothing in cache if negative TTL');
$c=Net::DRI::Cache->new(100); ## cache of 100 seconds
isa_ok($c->set('regname','domain','example.foo',{'whatever' => 'whatever2'}),'HASH','set');
is($c->get('domain','example.foo','whatever','regname'),'whatever2','get from cache 1');
is($c->get('domain','example.foo','whatever','regname2'),undef,'get from cache 2');
isa_ok($c->set('regname','domain','example.foo',{'whatever2' => 'whatever22'},1),'HASH','set for 1 second');
my $c2=Net::DRI::Cache->new(1);
$c2->set('regname','domain','cachec2',{'whatever3'=>2});
is($c2->get('domain','cachec2','whatever3','regname'),2,'get from cache 3');
sleep(2);
is($c->get('domain','example.foo','whatever2','regname'),undef,'get from cache after expiry');
$c2->delete_expired();
is_deeply($c2->{data}->{domain},{},'empty cache after delete_expired');
isa_ok($c->set('regname','domain','example.foo',{'whatever' => 'whatever2'}),'HASH','set 2');
is($c->get('domain','example.foo','whatever','regname'),'whatever2','get from cache 4');
$c->delete();
is_deeply($c->{data},{},'empty cache after delete_expired');
exit 0;
|
