trunk/t/08-Frey-ORM-Pager.t

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

my $debug = @ARGV ? 1 : 0;

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

use Data::Dump qw/dump/;

BEGIN {
        use_ok('Frey::ORM::Pager');
        use_ok('Strix::User');
        use_ok('Frey::ORM::Item');
}

ok( my $o = Frey::ORM::Pager->new(
        debug => $debug,
        fey_class => 'Strix::User',
        item_constructor => sub {
                warn "## item_constructor ",dump( @_ ) if $debug;
                Frey::ORM::Item->new( fey_class => 'Strix::User', @_ );
        },
), 'new' );
isa_ok( $o, 'Frey::ORM::Pager' );
diag dump( $o ) if $debug;

diag dump( $o->update_collection );

ok( ! $o->update_collection, 'update_collection' );

diag dump( $o->items ) if $debug;

ok( my $l = $o->last_item, 'last_item' );
1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	my $debug = @ARGV ? 1 : 0;
6
7	use Test::More tests => 7;
8	use lib 'lib';
9
10	use Data::Dump qw/dump/;
11
12	BEGIN {
13	use_ok('Frey::ORM::Pager');
14	use_ok('Strix::User');
15	use_ok('Frey::ORM::Item');
16	}
17
18	ok( my $o = Frey::ORM::Pager->new(
19	debug => $debug,
20	fey_class => 'Strix::User',
21	item_constructor => sub {
22	warn "## item_constructor ",dump( @_ ) if $debug;
23	Frey::ORM::Item->new( fey_class => 'Strix::User', @_ );
24	},
25	), 'new' );
26	isa_ok( $o, 'Frey::ORM::Pager' );
27	diag dump( $o ) if $debug;
28
29	diag dump( $o->update_collection );
30
31	ok( ! $o->update_collection, 'update_collection' );
32
33	diag dump( $o->items ) if $debug;
34
35	ok( my $l = $o->last_item, 'last_item' );