X-Git-Url: http://git.rot13.org/?p=perl-Redis.git;a=blobdiff_plain;f=t%2F01-Redis.t;h=24806956941df18cd8139ccbbd459c6077531b30;hp=e833a4e2bada1d16174d72a7ba5292f4eadfb7c5;hb=64af4a24c8afba6e53561caa02d0c0f840c14dda;hpb=7fe2fcf6093d525d4f56f37330f7256273fa7706 diff --git a/t/01-Redis.t b/t/01-Redis.t index e833a4e..2480695 100755 --- a/t/01-Redis.t +++ b/t/01-Redis.t @@ -3,7 +3,7 @@ use warnings; use strict; -use Test::More tests => 88; +use Test::More tests => 92; use lib 'lib'; @@ -151,6 +151,11 @@ diag "Multiple databases handling commands"; ok( $o->select( 1 ), 'select' ); ok( $o->select( 0 ), 'select' ); +ok( $o->move( 'foo', 1 ), 'move' ); +ok( ! $o->exists( 'foo' ), 'gone' ); + +ok( $o->select( 1 ), 'select' ); +ok( $o->exists( 'foo' ), 'exists' ); diag "Connection handling";