--- trunk/t/2-parse.t	2006/09/25 13:24:25	704
+++ trunk/t/2-parse.t	2006/09/25 13:46:36	705
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 26;
+use Test::More tests => 36;
 use Test::Exception;
 use blib;
 
@@ -50,13 +50,20 @@
 ok(! $parser->valid_database_input('foo','non-existant'), "no database input");
 
 ok(my $l = $parser->{_lookup_create}, "_lookup_create");
-diag "_lookup_create = ",dump($l);
+diag "_lookup_create = ",dump($l) if ($debug);
+foreach my $db (keys %$l) {
+	foreach my $i (keys %{$l->{$db}}) {
+		foreach my $k (keys %{$l->{$db}->{$i}}) {
+			ok(defined($parser->lookup_create_rules($db,$i)->{$k}), "have $db/$i/$k");
+		}
+	}
+}
 
 ok(my $n = $parser->{_normalize_source}, "_normalize_source");
-diag "_normalize_source = ",dump($n);
+diag "_normalize_source = ",dump($n) if ($debug);
 
 ok(my $d = $parser->{depends}, "depends");
-diag "depends = ",dump($d);
+diag "depends = ",dump($d) if ($debug);
 
 my $expected_depend = {
    foo => {
@@ -93,3 +100,4 @@
 		is_deeply($d->{$db}->{$i}, $parser->depends($db,$i), "depend $db/$i");
 	}
 }
+