trunk/t/1-lookup.t

#!/usr/bin/perl -w

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

BEGIN {
use_ok( 'WebPAC::Normalize::Lookup' );
}

throws_ok { new WebPAC::Normalize::Lookup() } qr/config/, "new without config";

ok(my $nos = new WebPAC::Normalize::Lookup( config => 'conf/lookup/isis.pm' ), "new");
1	#!/usr/bin/perl -w
2
3	use Test::More tests => 3;
4	use Test::Exception;
5	use blib;
6	use strict;
7
8	BEGIN {
9	use_ok( 'WebPAC::Normalize::Lookup' );
10	}
11
12	throws_ok { new WebPAC::Normalize::Lookup() } qr/config/, "new without config";
13
14	ok(my $nos = new WebPAC::Normalize::Lookup( config => 'conf/lookup/isis.pm' ), "new");