projects
/
perl-Redis.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ad8fa0d
)
cleanup fails on empty database
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 22 Mar 2009 18:18:26 +0000
(18:18 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 22 Mar 2009 18:18:26 +0000
(18:18 +0000)
git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/Redis@39
447b33ff
-793d-4489-8442-
9bea7d161be5
t/10-Redis-List.t
patch
|
blob
|
history
diff --git
a/t/10-Redis-List.t
b/t/10-Redis-List.t
index
478cc46
..
13bd7de
100755
(executable)
--- a/
t/10-Redis-List.t
+++ b/
t/10-Redis-List.t
@@
-3,7
+3,7
@@
use warnings;
use strict;
-use Test::More tests =>
9
;
+use Test::More tests =>
8
;
use lib 'lib';
use Data::Dump qw/dump/;
@@
-17,7
+17,7
@@
ok( my $o = tie( @a, 'Redis::List', 'test-redis-list' ), 'tie' );
isa_ok( $o, 'Redis::List' );
-
ok( $o->CLEAR, 'CLEAR' )
;
+
$o->CLEAR
;
ok( ! @a, 'empty list' );