--- trunk/t/2-input-isis.t	2005/07/16 16:48:35	8
+++ trunk/t/2-input-isis.t	2005/07/16 17:14:43	9
@@ -1,7 +1,8 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 4;
+use Test::More tests => 6;
 use Test::Exception;
+use Cwd qw/abs_path/;
 use blib;
 use strict;
 
@@ -9,8 +10,13 @@
 use_ok( 'WebPAC::Input::ISIS' );
 }
 
+ok(my $abs_path = abs_path($0), "abs_path");
+$abs_path =~ s#/[^/]*$#/#;
+
 ok(my $isis = new WebPAC::Input::ISIS(), "new");
 
 throws_ok { $isis->open() } qr/filename/, "need filename";
 
 throws_ok { $isis->open( filename => '/dev/null' ) } qr/can't find database/ , "open";
+
+ok($isis->open( filename => "$abs_path/winisis/BIBL" ), "open");