use File::Spec in attempt to support MacPerl

[Biblio-Isis] / t / 001_load.t

diff --git a/t/001_load.t b/t/001_load.t
index 51a937d..bb5a636 100755 (executable)
--- a/t/001_load.t
+++ b/t/001_load.t
@@ -4,13 +4,16 @@ use strict;
 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');