trunk/t/2-input-isis.t

#!/usr/bin/perl -w

use Test::More tests => 4;
use Test::Exception;
use blib;
use strict;

BEGIN {
use_ok( 'WebPAC::Input::ISIS' );
}

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";
1	#!/usr/bin/perl -w
2
3	use Test::More tests => 4;
4	use Test::Exception;
5	use blib;
6	use strict;
7
8	BEGIN {
9	use_ok( 'WebPAC::Input::ISIS' );
10	}
11
12	ok(my $isis = new WebPAC::Input::ISIS(), "new");
13
14	throws_ok { $isis->open() } qr/filename/, "need filename";
15
16	throws_ok { $isis->open( filename => '/dev/null' ) } qr/can't find database/ , "open";