Parent Directory | Revision Log | Patch
trunk/t/10-strix-user.t revision 57 by dpavlin, Sun Jul 6 18:00:54 2008 UTC | trunk/t/50-strix-user.t revision 106 by dpavlin, Sun Jul 13 12:22:14 2008 UTC | |
---|---|---|
# | Line 4 use warnings; | Line 4 use warnings; |
4 | ||
5 | my $debug = shift @ARGV; | my $debug = shift @ARGV; |
6 | ||
7 | use Test::More tests => 8; | use Test::More tests => 7; |
8 | use lib 'lib'; | use lib 'lib'; |
9 | ||
10 | #use Devel::LeakTrace::Fast; | #use Devel::LeakTrace::Fast; |
# | Line 19 isa_ok( $u, 'Strix::User' ); | Line 19 isa_ok( $u, 'Strix::User' ); |
19 | ||
20 | diag dump( $u ) if $debug; | diag dump( $u ) if $debug; |
21 | ||
22 | ok( my $i = $u->rows, 'rows' ); | ok( my $i = $u->collection( 2, 1 ), 'collection' ); |
23 | isa_ok( $i, 'Fey::Object::Iterator' ); | isa_ok( $i, 'Fey::Object::Iterator' ); |
24 | ||
25 | diag dump( $i ) if $debug; | diag dump( $i ) if $debug; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |