r622@llin: dpavlin | 2006-05-14 02:54:00 +0200

[webpac2] / t / 6-unit.t

diff --git a/t/6-unit.t b/t/6-unit.t
index 489ba81..d8be2a6 100755 (executable)
--- a/t/6-unit.t
+++ b/t/6-unit.t
@@ -76,6 +76,8 @@ ok(my $out = new WebPAC::Output::TT(
        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);
@@ -89,7 +91,6 @@ while (my $row = $isis->fetch) {
        {
                no strict 'subs';
                use WebPAC::Normalize::Set;
-               diag " lookup => ",Dumper($lookup->lookup_hash) if ($debug);
                set_lookup( $lookup->lookup_hash );
                clean_ds();
                eval "$norm_pl";