t/10-Redis-List.t

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More tests => 8;
   7 use lib 'lib';
   8
   9 BEGIN {
  10   use_ok('Redis::List');
  11 }
  12
  13 my @a;
  14
  15 ok(my $o = tie(@a, 'Redis::List', 'test-redis-list'), 'tie');
  16
  17 isa_ok($o, 'Redis::List');
  18
  19 $o->CLEAR;
  20
  21 ok(!@a, 'empty list');
  22
  23 ok(@a = ('foo', 'bar', 'baz'), '=');
  24 is_deeply([@a], ['foo', 'bar', 'baz']);
  25
  26 ok(push(@a, 'push'), 'push');
  27 is_deeply([@a], ['foo', 'bar', 'baz', 'push']);
  28