--- trunk/t/002_isis.t 2005/01/05 21:23:04 33 +++ trunk/t/002_isis.t 2005/01/06 20:48:07 36 @@ -7,7 +7,7 @@ use Test::More tests => 110; -BEGIN { use_ok( 'IsisDB' ); } +BEGIN { use_ok( 'Biblio::Isis' ); } my $debug = shift @ARGV; my $isis; @@ -16,7 +16,7 @@ my $args = {@_}; - isa_ok ($isis, 'IsisDB'); + isa_ok ($isis, 'Biblio::Isis'); cmp_ok($isis->count, '==', 5, "count is 5"); @@ -122,7 +122,7 @@ } -$isis = IsisDB->new ( +$isis = Biblio::Isis->new ( isisdb => './data/winisis/BIBL', include_deleted => 1, debug => $debug, @@ -141,7 +141,7 @@ ) ], ); -$isis = IsisDB->new ( +$isis = Biblio::Isis->new ( isisdb => './data/isismarc/BIBL', include_deleted => 1, ); @@ -158,7 +158,7 @@ # check logically deleted -$isis = IsisDB->new ( +$isis = Biblio::Isis->new ( isisdb => './data/winisis/BIBL', include_deleted => 1, ); @@ -166,7 +166,7 @@ ok($isis->fetch(3), "deleted found"); cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted"); -$isis = IsisDB->new ( +$isis = Biblio::Isis->new ( isisdb => './data/winisis/BIBL', debug => $debug, );