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 c2734d6..bb5a636 100755 (executable)
--- a/t/001_load.t
+++ b/t/001_load.t
@@ -4,11 +4,14 @@ use strict;
 use blib;
 
 use Test::More tests => 2;
+use File::Spec;
 
 BEGIN { use_ok( 'Biblio::Isis' ); }
 
+my $path = File::Spec->catfile('data', 'winisis', 'BIBL');
+
 my $object = Biblio::Isis->new (
-       isisdb => './data/winisis/BIBL',
+       isisdb => $path,
 );
 
 isa_ok ($object, 'Biblio::Isis');