trunk/t/50-strix-user.t

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

my $debug = shift @ARGV;

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

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

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

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

diag dump( $u ) if $debug;

ok( my $i = $u->collection( { per_page => 2 } ), 'collection' );
isa_ok( $i, 'Fey::Object::Iterator' );

diag dump( $i ) if $debug;

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

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

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