--- t/30-aaieduhr.t	2008/04/29 19:54:52	88
+++ t/30-aaieduhr.t	2008/04/29 21:43:36	89
@@ -8,11 +8,14 @@
 
 =cut
 
-use Jifty::Test tests => 2;
+use Jifty::Test tests => 8;
 
 use Data::Dump qw/dump/;
 
 use_ok('A3C::AAIEduHr');
 
-ok( my $a = A3C::AAIEduHr->available('hrEdu002'), 'available' );
-diag "got = ",dump( $a );
+foreach my $nr ( 1 .. 7 ) {
+	my $name = sprintf('hrEdu%03d', $nr);
+	ok( my $a = A3C::AAIEduHr->vocabulary( $name ), "vucabulatory $name" );
+	diag "$name = ",dump( $a );
+}