trunk/t/50-strix-user.t

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

my $debug = shift @ARGV;

use Test::More tests => 10;
use lib 'lib';

#use Devel::LeakTrace::Fast;
use Data::Dump qw/dump/;

BEGIN {
        use_ok('Strix::User');
        use_ok('Frey::Pager');
}

ok( my $u = Strix::User->new( id => 1 ), 'new' );
isa_ok( $u, 'Strix::User' );

diag dump( $u ) if $debug;

ok( my $i = $u->collection(), 'collection without pager' );
isa_ok( $i, 'Fey::Object::Iterator' );

diag dump( $i ) if $debug;

ok( my $r = $u->total_entries, 'total_entries' );
diag "total_entries: $r"; # if $debug;

my $max = 3;

while ( my $row = $i->next ) {
        isa_ok( $row, 'Strix::User' );
        last if --$max == 0;
}

1	dpavlin	7	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = shift @ARGV;
6
7	dpavlin	143	use Test::More tests => 10;
8	dpavlin	7	use lib 'lib';
9
10			#use Devel::LeakTrace::Fast;
11			use Data::Dump qw/dump/;
12
13			BEGIN {
14			use_ok('Strix::User');
15	dpavlin	143	use_ok('Frey::Pager');
16	dpavlin	7	}
17
18			ok( my $u = Strix::User->new( id => 1 ), 'new' );
19			isa_ok( $u, 'Strix::User' );
20
21	dpavlin	57	diag dump( $u ) if $debug;
22
23	dpavlin	143	ok( my $i = $u->collection(), 'collection without pager' );
24	dpavlin	57	isa_ok( $i, 'Fey::Object::Iterator' );
25
26			diag dump( $i ) if $debug;
27
28	dpavlin	143	ok( my $r = $u->total_entries, 'total_entries' );
29			diag "total_entries: $r"; # if $debug;
30	dpavlin	111
31	dpavlin	143	my $max = 3;
32
33	dpavlin	111	while ( my $row = $i->next ) {
34			isa_ok( $row, 'Strix::User' );
35	dpavlin	143	last if --$max == 0;
36	dpavlin	57	}
37	dpavlin	111