X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/5762b7f0f8d33eda021da908b6ddced684a2ba05..1259672feb4fcad189d413a341745990a844feda:/client-libraries/perl/t/10-Redis-List.t diff --git a/client-libraries/perl/t/10-Redis-List.t b/client-libraries/perl/t/10-Redis-List.t deleted file mode 100755 index 1ebdd757..00000000 --- a/client-libraries/perl/t/10-Redis-List.t +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - -use Test::More tests => 8; -use lib 'lib'; -use Data::Dump qw/dump/; - -BEGIN { - use_ok( 'Redis::List' ); -} - -my @a; - -ok( my $o = tie( @a, 'Redis::List', 'test-redis-list' ), 'tie' ); - -isa_ok( $o, 'Redis::List' ); - -$o->CLEAR; - -ok( ! @a, 'empty list' ); - -ok( @a = ( 'foo', 'bar', 'baz' ), '=' ); -is_deeply( [ @a ], [ 'foo', 'bar', 'baz' ] ); - -ok( push( @a, 'push' ), 'push' ); -is_deeply( [ @a ], [ 'foo', 'bar', 'baz', 'push' ] ); - -#diag dump( @a );