--- trunk/t/10-strix-user.t 2008/07/11 19:19:42 100 +++ trunk/t/50-strix-user.t 2009/01/09 16:02:33 969 @@ -2,9 +2,9 @@ use strict; use warnings; -my $debug = shift @ARGV; +my $debug = @ARGV ? 1 : 0; -use Test::More tests => 8; +use Test::More tests => 10; use lib 'lib'; #use Devel::LeakTrace::Fast; @@ -19,14 +19,18 @@ diag dump( $u ) if $debug; -ok( my $i = $u->rows, 'rows' ); +ok( my $i = $u->collection(), 'collection without pager' ); isa_ok( $i, 'Fey::Object::Iterator' ); diag dump( $i ) if $debug; -my $more = 3; +ok( my $r = $u->total_entries, 'total_entries' ); +diag "total_entries: $r"; # if $debug; -while ( $u = $i->next ) { - isa_ok( $u, 'Strix::User' ); - last unless --$more; +my $max = 3; + +while ( my $row = $i->next ) { + isa_ok( $row, 'Strix::User' ); + last if --$max == 0; } +