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
|
# Set up tests and strictness
use Test::More tests => 37;
use strict;
use warnings;
use lib '.';
# Make sure we have all the support routines
require 'testlib';
my $class = 'Cache::Memcached::Managed::Inactive';
(my $multi = $class) =~ s#::Inactive#::Multi#;
# Make sure we can load the module, both active and inactive
require_ok( $_ ) foreach $class,$multi;
# Create inactive cache objects directly
my @cache = map {$class->new} 0..2;
isa_ok( $cache[$_],$class,"Check whether object #$_ ok" ) foreach 0..2;
# Create a multi object
my $self = $multi->new( @cache );
isa_ok( $self,$multi,"Check whether multi object ok" );
check_methods( $self );
#-------------------------------------------------------------------------
# check_methods
#
# Check whether all the methods are indeed inactive. Good for 32 tests.
#
# IN: 1 instantiated object
sub check_methods {
my ($self) = @_;
# Check methods returning undef always
is_deeply( scalar( $self->$_ ), [ undef, undef, undef ],
"Check result of inactive method $_" )
foreach qw(
add
data
decr
delete
delete_group
delimiter
directory
expiration
flush_all
flush_interval
get
incr
namespace
replace
reset
set
start
stop
);
# Check all methods that always return a hash ref
is_deeply( scalar( $self->$_ ), [ {}, {}, {} ], ,
"Check result of hash ref method $_" )
foreach qw(
errors
get_group
get_multi
grab_group
group
stats
version
);
# Check all methods returning a list in array context
is_deeply( [ $self->$_ ], [ [], [], [] ],
"Check result of list list method $_" )
foreach qw(
dead
group_names
servers
);
# Check all methods returning a hash ref in scalar context
is_deeply( scalar( $self->$_ ), [ {}, {}, {} ],
"Check result of scalar inactive method $_")
foreach qw(
dead
group_names
servers
);
} #check_methods
|
