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::ORM::Pager->new(
        fey_class => ref($u),
        item_constructor => sub {
                Frey::ORM::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	dpavlin	102	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5	dpavlin	143	my $debug = @ARGV ? 1 : 0;
6	dpavlin	102
7	dpavlin	143	use Test::More tests => 23;
8	dpavlin	102	use lib 'lib';
9
10			#use Devel::LeakTrace::Fast;
11			use Data::Dump qw/dump/;
12
13			BEGIN {
14			use_ok('A3C::HrEduOrg');
15	dpavlin	143	use_ok('Frey::Pager');
16	dpavlin	102	}
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	dpavlin	969	ok( my $pager = Frey::ORM::Pager->new(
24	dpavlin	143	fey_class => ref($u),
25			item_constructor => sub {
26	dpavlin	969	Frey::ORM::Item->new( fey_class => ref($u), @_ );
27	dpavlin	143	},
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	dpavlin	102	isa_ok( $i, 'Fey::Object::Iterator' );
34			diag dump( $i ) if $debug;
35
36	dpavlin	143	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	dpavlin	111
41	dpavlin	102	while ( $u = $i->next ) {
42			isa_ok( $u, 'A3C::HrEduOrg' );
43			}
44	dpavlin	143