Parent Directory | Revision Log | Patch
revision 41 by dpavlin, Sun Mar 22 18:42:21 2009 UTC | revision 45 by dpavlin, Mon Mar 23 10:42:29 2009 UTC | |
---|---|---|
# | Line 3 | Line 3 |
3 | use warnings; | use warnings; |
4 | use strict; | use strict; |
5 | ||
6 | use Test::More tests => 94; | use Test::More tests => 95; |
7 | ||
8 | use lib 'lib'; | use lib 'lib'; |
9 | ||
# | Line 45 my $key_next = 3; | Line 45 my $key_next = 3; |
45 | ||
46 | ok( $o->set('key-left' => $key_next), 'key-left' ); | ok( $o->set('key-left' => $key_next), 'key-left' ); |
47 | ||
48 | is_deeply( [ $o->mget( 'foo', 'key-next', 'key-left' ) ], [ 'baz', 0, 3 ], 'mget' ); | |
49 | ||
50 | my @keys; | my @keys; |
51 | ||
52 | foreach ( 0 .. $key_next ) { | foreach ( 0 .. $key_next ) { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |