--- trunk/t/6-unit.t	2006/05/13 12:07:27	470
+++ trunk/t/6-unit.t	2006/05/13 12:08:05	474
@@ -10,7 +10,7 @@
 use Data::Dumper;
 use blib;
 
-my $debug = 1;
+my $debug = shift @ARGV;
 
 BEGIN {
 use_ok( 'WebPAC::Lookup' );
@@ -77,6 +77,9 @@
 
 while (my $row = $isis->fetch) {
 
+	diag " row => ",Dumper($row) if ($debug);
+	set_rec( $row );
+
 	ok(my $ds = $n->data_structure($row), "data_structure");
 
 	diag " ds => ",Dumper($ds) if ($debug);
@@ -85,10 +88,8 @@
 	{
 		no strict 'subs';
 		use WebPAC::Normalize::Set;
-		diag " row => ",Dumper($row) if ($debug);
-		set_rec( $row );
-		#diag " lookup => ",Dumper($lookup) if ($debug);
-		#set_lookup( $lookup );
+		diag " lookup => ",Dumper($lookup) if ($debug);
+		set_lookup( $lookup->lookup_hash );
 		clean_ds();
 		eval "$norm_pl";
 		ok(! $@, $@ ? "error: $@" : "no error");