8 |
|
|
9 |
=cut |
=cut |
10 |
|
|
11 |
use Jifty::Test tests => 8; |
use Jifty::Test tests => 10; |
12 |
|
|
13 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
14 |
|
|
15 |
use_ok('A3C::AAIEduHr'); |
use_ok('A3C::AAIEduHr'); |
16 |
|
|
17 |
foreach my $nr ( 1 .. 7 ) { |
foreach my $nr ( 1 .. 7, 9 .. 10 ) { |
18 |
my $name = sprintf('hrEdu%03d', $nr); |
my $name = sprintf('hrEdu%03d', $nr); |
19 |
ok( my $a = A3C::AAIEduHr->vocabulary( $name ), "vucabulatory $name" ); |
ok( my $a = A3C::AAIEduHr->vocabulary( $name ), "vucabulatory $name" ); |
20 |
diag "$name = ",dump( $a ); |
diag "$name = ",dump( $a ); |