--- trunk/t/3-normalize-xml.t	2005/07/24 14:20:59	30
+++ trunk/t/3-normalize-xml.t	2005/07/24 15:03:11	31
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 8;
+use Test::More tests => 10;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -14,6 +14,9 @@
 $abs_path =~ s#/[^/]*$#/#;
 diag "abs_path: $abs_path";
 
+throws_ok { new WebPAC::Normalize::XML( lookup_regex => 'foo' ) } qr/pair/, "lookup_regex without lookup";
+throws_ok { new WebPAC::Normalize::XML( lookup => 'bar' ) } qr/pair/, "lookup without lookup_regex";
+
 ok(my $n = new WebPAC::Normalize::XML( debug => 0 ), "new");
 
 throws_ok { $n->open() } qr/tag/, "open without tag";
@@ -32,5 +35,3 @@
 
 ok(my @ds = $n->data_structure( $rec ), "data_structure");
 
-use Data::Dumper;
-diag Dumper(\@ds);