/[Frey]/trunk/t/02-frey-pager.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/02-frey-pager.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 213 by dpavlin, Wed Jul 16 14:17:46 2008 UTC revision 214 by dpavlin, Fri Oct 31 19:53:50 2008 UTC
# Line 4  use warnings; Line 4  use warnings;
4    
5  my $debug = @ARGV ? 1 : 0;  my $debug = @ARGV ? 1 : 0;
6    
7  use Test::More tests => 13;  use Test::More tests => 7;
8  use lib 'lib';  use lib 'lib';
9    
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 19  ok( my $o = Frey::Pager->new( Line 19  ok( my $o = Frey::Pager->new(
19          debug => $debug,          debug => $debug,
20          fey_class => 'Strix::User',          fey_class => 'Strix::User',
21          item_constructor => sub {          item_constructor => sub {
22                  warn "## item_constructor ",dump( @_ );                  warn "## item_constructor ",dump( @_ ) if $debug;
23                  Frey::Web::Item->new( fey_class => 'Strix::User', @_ );                  Frey::Web::Item->new( fey_class => 'Strix::User', @_ );
24          },          },
25  ), 'new' );  ), 'new' );
26  isa_ok( $o, 'Frey::Pager' );  isa_ok( $o, 'Frey::Pager' );
27  diag dump( $o ) if $debug;  diag dump( $o ) if $debug;
28    
29  ok( $o->update_collection, 'update_collection' );  diag dump( $o->update_collection );
30    
31  diag dump( $o->items );  ok( ! $o->update_collection, 'update_collection' );
32    
33    diag dump( $o->items ) if $debug;
34    
35  ok( my $l = $o->last_item, 'last_item' );  ok( my $l = $o->last_item, 'last_item' );
Legend:
Removed from v.213  
changed lines
  Added in v.214
  ViewVC Help
Powered by ViewVC 1.1.26