/[Frey]/trunk/t/08-Frey-ORM-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/08-Frey-ORM-Pager.t

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

trunk/t/02-frey-pager.t revision 214 by dpavlin, Fri Oct 31 19:53:50 2008 UTC trunk/t/08-Frey-ORM-Pager.t revision 969 by dpavlin, Fri Jan 9 16:02:33 2009 UTC
# Line 10  use lib 'lib'; Line 10  use lib 'lib';
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
11    
12  BEGIN {  BEGIN {
13          use_ok('Frey::Pager');          use_ok('Frey::ORM::Pager');
14          use_ok('Strix::User');          use_ok('Strix::User');
15          use_ok('Frey::Web::Item');          use_ok('Frey::ORM::Item');
16  }  }
17    
18  ok( my $o = Frey::Pager->new(  ok( my $o = Frey::ORM::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( @_ ) if $debug;                  warn "## item_constructor ",dump( @_ ) if $debug;
23                  Frey::Web::Item->new( fey_class => 'Strix::User', @_ );                  Frey::ORM::Item->new( fey_class => 'Strix::User', @_ );
24          },          },
25  ), 'new' );  ), 'new' );
26  isa_ok( $o, 'Frey::Pager' );  isa_ok( $o, 'Frey::ORM::Pager' );
27  diag dump( $o ) if $debug;  diag dump( $o ) if $debug;
28    
29  diag dump( $o->update_collection );  diag dump( $o->update_collection );
Legend:
Removed from v.214  
changed lines
  Added in v.969
  ViewVC Help
Powered by ViewVC 1.1.26