Change 14134 by jhi@alpha on 2002/01/08 14:30:00
Missed one variant of the fold testing, noticed bu Hugo.
Affected files ...
.... //depot/perl/lib/unifold.t#2 edit
Differences ...
==== //depot/perl/lib/unifold.t#2 (text) ====
Index: perl/lib/unifold.t
--- perl/lib/unifold.t.~1~ Tue Jan 8 07:45:05 2002
+++ perl/lib/unifold.t Tue Jan 8 07:45:05 2002
@@ -29,16 +29,17 @@
$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];
End of Patch.
