trunk/t/2-input-isis.t

#!/usr/bin/perl -w

use Test::More tests => 6;
use Test::Exception;
use Cwd qw/abs_path/;
use blib;
use strict;

BEGIN {
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");
1	#!/usr/bin/perl -w
2
3	use Test::More tests => 6;
4	use Test::Exception;
5	use Cwd qw/abs_path/;
6	use blib;
7	use strict;
8
9	BEGIN {
10	use_ok( 'WebPAC::Input::ISIS' );
11	}
12
13	ok(my $abs_path = abs_path($0), "abs_path");
14	$abs_path =~ s#/[^/]*$#/#;
15
16	ok(my $isis = new WebPAC::Input::ISIS(), "new");
17
18	throws_ok { $isis->open() } qr/filename/, "need filename";
19
20	throws_ok { $isis->open( filename => '/dev/null' ) } qr/can't find database/ , "open";
21
22	ok($isis->open( filename => "$abs_path/winisis/BIBL" ), "open");