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	dpavlin	143	#!/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' );