--- trunk/t/001_load.t 2004/12/28 00:43:04 1 +++ trunk/t/001_load.t 2005/01/12 19:28:41 38 @@ -4,13 +4,16 @@ use blib; use Test::More tests => 2; +use File::Spec; -BEGIN { use_ok( 'IsisDB' ); } +BEGIN { use_ok( 'Biblio::Isis' ); } -my $object = IsisDB->new ( - isisdb => '/data/isis_data/ps/LIBRI/LIBRI', +my $path = File::Spec->catfile('data', 'winisis', 'BIBL'); +my $object = Biblio::Isis->new ( + isisdb => $path, ); -isa_ok ($object, 'IsisDB'); + +isa_ok ($object, 'Biblio::Isis');