Parent Directory | Revision Log | Patch
revision 29 by dpavlin, Sun Mar 22 16:16:11 2009 UTC | revision 39 by dpavlin, Sun Mar 22 18:18:26 2009 UTC | |
---|---|---|
# | Line 3 | Line 3 |
3 | use warnings; | use warnings; |
4 | use strict; | use strict; |
5 | ||
6 | use Test::More tests => 9; | use Test::More tests => 8; |
7 | use lib 'lib'; | use lib 'lib'; |
8 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
9 | ||
# | Line 17 ok( my $o = tie( @a, 'Redis::List', 'tes | Line 17 ok( my $o = tie( @a, 'Redis::List', 'tes |
17 | ||
18 | isa_ok( $o, 'Redis::List' ); | isa_ok( $o, 'Redis::List' ); |
19 | ||
20 | ok( $o->CLEAR, 'CLEAR' ); | $o->CLEAR; |
21 | ||
22 | ok( ! @a, 'empty list' ); | ok( ! @a, 'empty list' ); |
23 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |