/[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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 106 - (hide annotations)
Sun Jul 13 12:22:14 2008 UTC (15 years, 8 months ago) by dpavlin
File MIME type: application/x-troff
File size: 498 byte(s)
added Frey::Collection role to database models
1 dpavlin 102 #!/usr/bin/perl
2     use strict;
3     use warnings;
4    
5     my $debug = shift @ARGV;
6    
7 dpavlin 106 use Test::More tests => 15;
8 dpavlin 102 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 dpavlin 106 ok( my $i = $u->collection( 10, 3 ), 'collection' );
23 dpavlin 102 isa_ok( $i, 'Fey::Object::Iterator' );
24    
25     diag dump( $i ) if $debug;
26    
27     while ( $u = $i->next ) {
28     isa_ok( $u, 'A3C::HrEduOrg' );
29     }

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26