Change 13629 by jhi@alpha on 2001/12/11 19:17:16
Subject: [PATCH] Re: [PATCH] Re: [PATCH t/op/pack.t] Cleanup
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Tue, 11 Dec 2001 20:08:59 +0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/op/pack.t#57 edit
Differences ...
==== //depot/perl/t/op/pack.t#57 (xtext) ====
Index: perl/t/op/pack.t
--- perl/t/op/pack.t.~1~ Tue Dec 11 12:30:05 2001
+++ perl/t/op/pack.t Tue Dec 11 12:30:05 2001
@@ -385,14 +385,13 @@
$calc_sum = 0;
}
- if (is( $calc_sum, $sum)) {
- print "# unpack '%$_$format' gave $sum\n";
+ if ($calc_sum == $sum) { # HAS to be ==, not eq (so no is()).
+ ok ("unpack '%$_$format' gave $sum");
} else {
my $delta = 1.000001;
if ($format =~ tr /dDfF//
&& ($calc_sum <= $sum * $delta && $calc_sum >= $sum / $delta)) {
- pass;
- print "# unpack '%$_$format' gave $sum, expected $calc_sum\n";
+ pass ("unpack '%$_$format' gave $sum, expected $calc_sum");
} else {
my $text = ref $total ? &$total($len) : $total;
fail;
End of Patch.
