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	dpavlin	8	#!/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";