From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 8 Jan 2002 14:30:00 +0000 (+0000)
Subject: Missed one variant of the fold testing, noticed bu Hugo.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9cd90f7bf71369f3b9527136c154bd38b3d6b49e;p=p5sagit%2Fp5-mst-13.2.git

Missed one variant of the fold testing, noticed bu Hugo.

p4raw-id: //depot/perl@14134
---

diff --git a/lib/unifold.t b/lib/unifold.t
index d4e819e..76e1639 100644
--- a/lib/unifold.t
+++ b/lib/unifold.t
@@ -29,16 +29,17 @@ if (open(CF, $CF)) {
 	$i++;
 	my $a = pack("U0U*", hex $code);
 	my $b = pack("U0U*", map { hex } split " ", $mapping);
-	my $t0 = ":$a:" =~ /:$a:/   ?  1 : 0;
-	my $t1 = ":$a:" =~ /:$a:/i  ?  1 : 0;
-	my $t2 = ":$a:" =~ /:[$a]:/i ? 1 : 0;
-	my $t3 = ":$a:" =~ /:$b:/i   ? 1 : 0;
-	my $t4 = ":$a:" =~ /:[$b]:/i ? 1 : 0;
-	my $t5 = ":$b:" =~ /:$a:/i   ? 1 : 0;
-	my $t6 = ":$b:" =~ /:[$a]:/i ? 1 : 0;
-	print $t0 && $t1 && $t2 && $t3 && $t4 && $t5 && $t6 ?
-	    "ok $i \# - $code - $name - $mapping - - $status\n" :
-	    "not ok $i \# - $code - $name - $mapping - $t0 $t1 $t2 $t3 $t4 $t5 $t6 - $status\n";
+	my $t0 = ":$a:" =~ /:$a:/    ? 1 : 0;
+	my $t1 = ":$a:" =~ /:$a:/i   ? 1 : 0;
+	my $t2 = ":$a:" =~ /:[$a]:/  ? 1 : 0;
+	my $t3 = ":$a:" =~ /:[$a]:/i ? 1 : 0;
+	my $t4 = ":$a:" =~ /:$b:/i   ? 1 : 0;
+	my $t5 = ":$a:" =~ /:[$b]:/i ? 1 : 0;
+	my $t6 = ":$b:" =~ /:$a:/i   ? 1 : 0;
+	my $t7 = ":$b:" =~ /:[$a]:/i ? 1 : 0;
+	print $t0 && $t1 && $t2 && $t3 && $t4 && $t5 && $t6 && $t7 ?
+	    "ok $i \# - $code - $name - $mapping - $status\n" :
+	    "not ok $i \# - $code - $name - $mapping - $status - $t0 $t1 $t2 $t3 $t4 $t5 $t6 $t7\n";
     }
 } else {
     die qq[$0: failed to open "$CF": $!\n];