--- trunk/t/60-a3c-hreduorg.t 2008/07/13 16:15:45 110 +++ trunk/t/60-a3c-hreduorg.t 2008/07/13 16:17:34 111 @@ -4,7 +4,7 @@ my $debug = shift @ARGV; -use Test::More tests => 15; +use Test::More tests => 18; use lib 'lib'; #use Devel::LeakTrace::Fast; @@ -19,11 +19,14 @@ diag dump( $u ) if $debug; -ok( my $i = $u->collection( { limit => 10, offset => 3 } ), 'collection' ); +ok( my ($i,$pager) = $u->collection( { per_page => 10, page => 2 } ), 'collection' ); isa_ok( $i, 'Fey::Object::Iterator' ); - diag dump( $i ) if $debug; +isa_ok( $pager, 'Data::Page' ); +cmp_ok( $pager->first, '==', 11 ); +cmp_ok( $pager->last, '==', 20 ); + while ( $u = $i->next ) { isa_ok( $u, 'A3C::HrEduOrg' ); }