summaryrefslogtreecommitdiff
path: root/t/op/tr.t
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2001-06-03 05:26:36 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2001-06-03 15:12:13 +0000
commit58a9a5d5decdad14b14ae7eccc5dfaa8de6eddd9 (patch)
treeffdcf7f174504129f1af2148240288e31ce814ea /t/op/tr.t
parentb11416c6dfc6192b454746d4bf2a583723270bde (diff)
downloadperl-58a9a5d5decdad14b14ae7eccc5dfaa8de6eddd9.tar.gz
Re: 'decimal digits' macro?
Message-Id: <200106030326.EAA18786@crypt.compulink.co.uk> p4raw-id: //depot/perl@10397
Diffstat (limited to 't/op/tr.t')
-rwxr-xr-xt/op/tr.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/tr.t b/t/op/tr.t
index 1e30365eeb..5c75b6023c 100755
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -43,7 +43,7 @@ print "ok 3\n";
(my $y = 12) =~ tr/1/3/;
($f = 1.5) =~ tr/1/3/;
(my $g = 1.5) =~ tr/1/3/;
-print "not " unless $x + $y + $f + $g == 71;
+print "not " unless $x + $y + $f + $g > 70.9;
print "ok 5\n";
# make sure tr is harmless if not updating - see [ID 20000511.005]