projects
/
perl-Redis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add scripts/* to MANIFEST
[perl-Redis.git]
/
t
/
20-Redis-Hash.t
diff --git
a/t/20-Redis-Hash.t
b/t/20-Redis-Hash.t
index
7bd9daf
..
169eda4
100755
(executable)
--- a/
t/20-Redis-Hash.t
+++ b/
t/20-Redis-Hash.t
@@
-3,9
+3,8
@@
use warnings;
use strict;
use warnings;
use strict;
-use Test::More tests =>
7
;
+use Test::More tests =>
8
;
use lib 'lib';
use lib 'lib';
-use Data::Dump qw/dump/;
BEGIN {
use_ok( 'Redis::Hash' );
BEGIN {
use_ok( 'Redis::Hash' );
@@
-25,6
+24,6
@@
is_deeply( [ sort keys %h ], [ 'bar', 'baz', 'foo' ], 'keys' );
is_deeply( \%h, { bar => 1, baz => 99, foo => 42, }, 'structure' );
is_deeply( \%h, { bar => 1, baz => 99, foo => 42, }, 'structure' );
-
-
#diag dump( \%h )
;
+ok( my $mem = $o->info->{used_memory}, 'info' );
+
diag "used memory $mem"
;