--- trunk/t/3-normalize-xml.t	2006/01/07 18:18:07	351
+++ trunk/t/3-normalize-xml.t	2006/01/07 18:23:27	352
@@ -13,13 +13,13 @@
 
 ok(my $abs_path = abs_path($0), "abs_path");
 $abs_path =~ s#/[^/]*$#/#;
-diag "abs_path: $abs_path";
+#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 => 1,
+	debug => 0,
 	filter => {
 		regex => sub {
 			my ($val, $regex) = @_;
@@ -169,9 +169,9 @@
 	# erase internal cache (yak!)
 	delete($n->{tags_by_order});
 	push @{$rec->{'000'}}, 42 unless ($rec->{'000'});
-	diag "test normalisation of: ",Dumper($n->{import_xml}->{indexer}, $rec);
+	#diag "test normalisation of: ",Dumper($n->{import_xml}->{indexer}, $rec);
 	ok(my $ds = $n->data_structure( $rec ), "data_structure");
-	diag Dumper($ds);
+	#diag Dumper($ds);
 	cmp_ok($ds->{Tag}->{display}->[0], 'eq', $r, "parse $r");
 }