trunk/t/02-frey-pager.t

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

my $debug = @ARGV ? 1 : 0;

use Test::More tests => 13;
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( @_ );
                Frey::Web::Item->new( fey_class => 'Strix::User', @_ );
        },
), 'new' );
isa_ok( $o, 'Frey::Pager' );
diag dump( $o ) if $debug;

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

diag dump( $o->items );

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 => 13;
8	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	warn "## item_constructor ",dump( @_ );
23	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	ok( $o->update_collection, 'update_collection' );
30
31	diag dump( $o->items );
32
33	ok( my $l = $o->last_item, 'last_item' );