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