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