trunk/t/60-a3c-hreduorg.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('A3C::HrEduOrg');
}

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

diag dump( $u ) if $debug;

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

diag dump( $i ) if $debug;

my $more = 3;

while ( $u = $i->next ) {
        isa_ok( $u, 'A3C::HrEduOrg' );
        last unless --$more;
}
1	dpavlin	102	#!/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('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 = $u->rows, 'rows' );
23			isa_ok( $i, 'Fey::Object::Iterator' );
24
25			diag dump( $i ) if $debug;
26
27			my $more = 3;
28
29			while ( $u = $i->next ) {
30			isa_ok( $u, 'A3C::HrEduOrg' );
31			last unless --$more;
32			}