From 7fe2fcf6093d525d4f56f37330f7256273fa7706 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 22 Mar 2009 18:18:26 +0000 Subject: [PATCH] cleanup fails on empty database git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/Redis@39 447b33ff-793d-4489-8442-9bea7d161be5 --- t/10-Redis-List.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/10-Redis-List.t b/t/10-Redis-List.t index 478cc46..13bd7de 100755 --- 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' ); -- 2.20.1