--- trunk/t/6-unit.t	2006/05/13 12:07:27	470
+++ trunk/t/6-unit.t	2006/05/14 00:50:35	481
@@ -10,7 +10,7 @@
 use Data::Dumper;
 use blib;
 
-my $debug = 1;
+my $debug = shift @ARGV;
 
 BEGIN {
 use_ok( 'WebPAC::Lookup' );
@@ -26,7 +26,8 @@
 diag "abs_path: $abs_path" if ($debug);
 
 my $isis_file = "$abs_path../t/winisis/BIBL";
-$isis_file = '/data/hidra/THS/THS';
+#$isis_file = '/data/hidra/THS/THS';
+$isis_file = '/data/isis_data/ffkk/';
 
 diag "isis_file: $isis_file" if ($debug);
 
@@ -75,8 +76,13 @@
 	filters => { foo => sub { shift } },
 ), "new Output::TT");
 
+diag " lookup => ",Dumper($lookup->lookup_hash) if ($debug);
+
 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 +91,7 @@
 	{
 		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 );
+		set_lookup( $lookup->lookup_hash );
 		clean_ds();
 		eval "$norm_pl";
 		ok(! $@, $@ ? "error: $@" : "no error");