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