projects
/
perl-Redis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
lset, generalize _sock_send_bulk to any number of arguments
[perl-Redis.git]
/
t
/
01-Redis.t
diff --git
a/t/01-Redis.t
b/t/01-Redis.t
index
d41bd3f
..
3e6e62b
100755
(executable)
--- a/
t/01-Redis.t
+++ b/
t/01-Redis.t
@@
-3,7
+3,7
@@
use warnings;
use strict;
use warnings;
use strict;
-use Test::More tests => 6
4
;
+use Test::More tests => 6
6
;
use lib 'lib';
use lib 'lib';
@@
-98,4
+98,7
@@
cmp_ok( $o->llen($list), '==', 2, 'llen after ltrim' );
cmp_ok( $o->lindex( $list, 0 ), 'eq', 'l1', 'lindex' );
cmp_ok( $o->lindex( $list, 1 ), 'eq', 'r1', 'lindex' );
cmp_ok( $o->lindex( $list, 0 ), 'eq', 'l1', 'lindex' );
cmp_ok( $o->lindex( $list, 1 ), 'eq', 'r1', 'lindex' );
+ok( $o->lset( $list, 0, 'foo' ), 'lset' );
+cmp_ok( $o->lindex( $list, 0 ), 'eq', 'foo', 'verified' );
+
ok( $o->quit, 'quit' );
ok( $o->quit, 'quit' );