--- trunk/t/10-strix-user.t 2008/06/28 18:37:13 7 +++ trunk/t/10-strix-user.t 2008/07/06 18:00:54 57 @@ -4,7 +4,7 @@ my $debug = shift @ARGV; -use Test::More tests => 3; +use Test::More tests => 8; use lib 'lib'; #use Devel::LeakTrace::Fast; @@ -17,4 +17,13 @@ ok( my $u = Strix::User->new( id => 1 ), 'new' ); isa_ok( $u, 'Strix::User' ); -diag dump( $u ); +diag dump( $u ) if $debug; + +ok( my $i = $u->rows, 'rows' ); +isa_ok( $i, 'Fey::Object::Iterator' ); + +diag dump( $i ) if $debug; + +while ( $u = $i->next ) { + isa_ok( $u, 'Strix::User' ); +}