/[Frey]/trunk/t/60-a3c-hreduorg.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

Contents of /trunk/t/60-a3c-hreduorg.t

Parent Directory Parent Directory | Revision Log Revision Log


Revision 111 - (show annotations)
Sun Jul 13 16:17:34 2008 UTC (14 years, 4 months ago) by dpavlin
File MIME type: application/x-troff
File size: 632 byte(s)
implemented pager for collection [0.10]
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4
5 my $debug = shift @ARGV;
6
7 use Test::More tests => 18;
8 use lib 'lib';
9
10 #use Devel::LeakTrace::Fast;
11 use Data::Dump qw/dump/;
12
13 BEGIN {
14 use_ok('A3C::HrEduOrg');
15 }
16
17 ok( my $u = A3C::HrEduOrg->new( id => 1 ), 'new' );
18 isa_ok( $u, 'A3C::HrEduOrg' );
19
20 diag dump( $u ) if $debug;
21
22 ok( my ($i,$pager) = $u->collection( { per_page => 10, page => 2 } ), 'collection' );
23 isa_ok( $i, 'Fey::Object::Iterator' );
24 diag dump( $i ) if $debug;
25
26 isa_ok( $pager, 'Data::Page' );
27 cmp_ok( $pager->first, '==', 11 );
28 cmp_ok( $pager->last, '==', 20 );
29
30 while ( $u = $i->next ) {
31 isa_ok( $u, 'A3C::HrEduOrg' );
32 }

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26