Parent Directory
| 
Revision Log
| 
Patch
| revision 44 by dpavlin, Mon Mar 23 09:22:30 2009 UTC | revision 63 by dpavlin, Mon Sep 14 11:37:25 2009 UTC | |
|---|---|---|
| # | Line 3 | Line 3 |
| 3 | use warnings; | use warnings; |
| 4 | use strict; | use strict; |
| 5 | ||
| 6 | use Test::More tests => 7; | use Test::More tests => 8; |
| 7 | use lib 'lib'; | use lib 'lib'; |
| use Data::Dump qw/dump/; | ||
| 8 | ||
| 9 | BEGIN { | BEGIN { |
| 10 | use_ok( 'Redis::Hash' ); | use_ok( 'Redis::Hash' ); |
| # | Line 25 is_deeply( [ sort keys %h ], [ 'bar', 'b | Line 24 is_deeply( [ sort keys %h ], [ 'bar', 'b |
| 24 | ||
| 25 | is_deeply( \%h, { bar => 1, baz => 99, foo => 42, }, 'structure' ); | is_deeply( \%h, { bar => 1, baz => 99, foo => 42, }, 'structure' ); |
| 26 | ||
| 27 | ok( my $mem = $o->info->{used_memory}, 'info' ); | |
| 28 | diag dump( \%h ); | diag "used memory $mem"; |
| 29 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |