projects
/
perl-Redis.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
158e857
)
check type of list
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 22 Mar 2009 13:20:34 +0000
(13:20 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 22 Mar 2009 13:20:34 +0000
(13:20 +0000)
git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/Redis@25
447b33ff
-793d-4489-8442-
9bea7d161be5
t/01-Redis.t
patch
|
blob
|
history
diff --git
a/t/01-Redis.t
b/t/01-Redis.t
index
3e6e62b
..
d43655a
100755
(executable)
--- a/
t/01-Redis.t
+++ b/
t/01-Redis.t
@@
-3,7
+3,7
@@
use warnings;
use strict;
-use Test::More tests => 6
6
;
+use Test::More tests => 6
7
;
use lib 'lib';
@@
-88,6
+88,7
@@
ok( $o->rpush( $list => "r$_" ), 'rpush' ) foreach ( 1 .. 3 );
ok( $o->lpush( $list => "l$_" ), 'lpush' ) foreach ( 1 .. 2 );
+cmp_ok( $o->type($list), 'eq', 'list', 'type' );
cmp_ok( $o->llen($list), '==', 5, 'llen' );
is_deeply( [ $o->lrange( $list, 0, 1 ) ], [ 'l2', 'l1' ], 'lrange' );