Parent Directory | Revision Log | Patch
revision 18 by dpavlin, Sun Mar 22 09:44:30 2009 UTC | revision 20 by dpavlin, Sun Mar 22 09:51:34 2009 UTC | |
---|---|---|
# | Line 3 | Line 3 |
3 | use warnings; | use warnings; |
4 | use strict; | use strict; |
5 | ||
6 | use Test::More tests => 54; | use Test::More tests => 56; |
7 | ||
8 | use lib 'lib'; | use lib 'lib'; |
9 | ||
# | Line 82 diag "Commands operating on lists"; | Line 82 diag "Commands operating on lists"; |
82 | ||
83 | ok( $o->rpush( 'test-list' => 'foo' ), 'rpush' ); | ok( $o->rpush( 'test-list' => 'foo' ), 'rpush' ); |
84 | ||
85 | ok( $o->lpush( 'test-list' => 'foo' ), 'lpush' ); | |
86 | ||
87 | cmp_ok( $o->llen('test-list'), '==', 2, 'llen' ); | |
88 | ||
89 | ||
90 | ok( $o->quit, 'quit' ); | ok( $o->quit, 'quit' ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |