--- t/01-Redis.t 2009/03/22 13:09:15 23 +++ t/01-Redis.t 2009/03/22 13:18:11 24 @@ -3,7 +3,7 @@ use warnings; use strict; -use Test::More tests => 64; +use Test::More tests => 66; use lib 'lib'; @@ -98,4 +98,7 @@ 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' );