trunk/t/60-a3c-hreduorg.t

#!/usr/bin/perl
use strict;
use warnings;

my $debug = @ARGV ? 1 : 0;

use Test::More tests => 23;
use lib 'lib';

#use Devel::LeakTrace::Fast;
use Data::Dump qw/dump/;

BEGIN {
        use_ok('A3C::HrEduOrg');
        use_ok('Frey::Pager');
}

ok( my $u = A3C::HrEduOrg->new( id => 1 ), 'new' );
isa_ok( $u, 'A3C::HrEduOrg' );

diag dump( $u ) if $debug;

ok( my $pager = Frey::Pager->new(
        fey_class => ref($u),
        item_constructor => sub {
                Frey::Web::Item->new( fey_class => ref($u), @_ );
        },
), 'pager' );
ok( $pager->pager->current_page( 2 ), 'current_page 2' );
ok( $pager->pager->entries_per_page( 10 ), 'entries_per_page 10' );

ok( my $i = $u->collection( $pager ), 'collection' );
isa_ok( $i, 'Fey::Object::Iterator' );
diag dump( $i ) if $debug;

ok(my $dp = $pager->pager, 'pager' );
isa_ok( $dp, 'Data::Page' );
cmp_ok( $dp->first, '==', 11, 'first' );
cmp_ok( $dp->last, '==', 20, 'last' );

while ( $u = $i->next ) {
        isa_ok( $u, 'A3C::HrEduOrg' );
}

1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	my $debug = @ARGV ? 1 : 0;
6
7	use Test::More tests => 23;
8	use lib 'lib';
9
10	#use Devel::LeakTrace::Fast;
11	use Data::Dump qw/dump/;
12
13	BEGIN {
14	use_ok('A3C::HrEduOrg');
15	use_ok('Frey::Pager');
16	}
17
18	ok( my $u = A3C::HrEduOrg->new( id => 1 ), 'new' );
19	isa_ok( $u, 'A3C::HrEduOrg' );
20
21	diag dump( $u ) if $debug;
22
23	ok( my $pager = Frey::Pager->new(
24	fey_class => ref($u),
25	item_constructor => sub {
26	Frey::Web::Item->new( fey_class => ref($u), @_ );
27	},
28	), 'pager' );
29	ok( $pager->pager->current_page( 2 ), 'current_page 2' );
30	ok( $pager->pager->entries_per_page( 10 ), 'entries_per_page 10' );
31
32	ok( my $i = $u->collection( $pager ), 'collection' );
33	isa_ok( $i, 'Fey::Object::Iterator' );
34	diag dump( $i ) if $debug;
35
36	ok(my $dp = $pager->pager, 'pager' );
37	isa_ok( $dp, 'Data::Page' );
38	cmp_ok( $dp->first, '==', 11, 'first' );
39	cmp_ok( $dp->last, '==', 20, 'last' );
40
41	while ( $u = $i->next ) {
42	isa_ok( $u, 'A3C::HrEduOrg' );
43	}
44