no-pager/t/02-frey-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::Pager');
        use_ok('Strix::User');
        use_ok('Frey::Web::Item');
}

ok( my $o = Frey::Pager->new(
        debug => $debug,
        fey_class => 'Strix::User',
        item_constructor => sub {
                warn "## item_constructor ",dump( @_ ) if $debug;
                Frey::Web::Item->new( fey_class => 'Strix::User', @_ );
        },
), 'new' );
isa_ok( $o, 'Frey::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			use_ok('Frey::Pager');
14			use_ok('Strix::User');
15			use_ok('Frey::Web::Item');
16			}
17
18			ok( my $o = Frey::Pager->new(
19			debug => $debug,
20			fey_class => 'Strix::User',
21			item_constructor => sub {
22	dpavlin	214	warn "## item_constructor ",dump( @_ ) if $debug;
23	dpavlin	143	Frey::Web::Item->new( fey_class => 'Strix::User', @_ );
24			},
25			), 'new' );
26			isa_ok( $o, 'Frey::Pager' );
27			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' );