Parent Directory | Revision Log | Patch
revision 88 by dpavlin, Tue Apr 29 19:54:52 2008 UTC | revision 89 by dpavlin, Tue Apr 29 21:43:36 2008 UTC | |
---|---|---|
# | Line 8 test AAIEduHr integration | Line 8 test AAIEduHr integration |
8 | ||
9 | =cut | =cut |
10 | ||
11 | use Jifty::Test tests => 2; | use Jifty::Test tests => 8; |
12 | ||
13 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
14 | ||
15 | use_ok('A3C::AAIEduHr'); | use_ok('A3C::AAIEduHr'); |
16 | ||
17 | ok( my $a = A3C::AAIEduHr->available('hrEdu002'), 'available' ); | foreach my $nr ( 1 .. 7 ) { |
18 | diag "got = ",dump( $a ); | my $name = sprintf('hrEdu%03d', $nr); |
19 | ok( my $a = A3C::AAIEduHr->vocabulary( $name ), "vucabulatory $name" ); | |
20 | diag "$name = ",dump( $a ); | |
21 | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |