From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 2 Mar 2004 21:33:22 +0000 (+0000)
Subject: Remove machine-dependent rounding dependency from write overflow
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9acd3e2cb8772b6eb8d3f739a8401e73420609ba;p=p5sagit%2Fp5-mst-13.2.git

Remove machine-dependent rounding dependency from write overflow
tests

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

diff --git a/t/op/write.t b/t/op/write.t
index 52ba517..ccecac3 100755
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -16,20 +16,20 @@ sub swrite {
 
 my @NumTests = (
     # [ format, value1, expected1, value2, expected2, .... ]
-    [ '@###',           0,   '   0',         1, '   1',     9999.5, '####',
-		9999.4999,   '9999',    -999.5, '####',     1e+100, '####' ],
+    [ '@###',           0,   '   0',         1, '   1',     9999.6, '####',
+		9999.4999,   '9999',    -999.6, '####',     1e+100, '####' ],
 
-    [ '@0##',           0,   '0000',         1, '0001',     9999.5, '####',
-		-999.4999,   '-999',    -999.5, '####',     1e+100, '####' ],
+    [ '@0##',           0,   '0000',         1, '0001',     9999.6, '####',
+		-999.4999,   '-999',    -999.6, '####',     1e+100, '####' ],
 
     [ '^###',           0,   '   0',     undef, '    ' ],
 
     [ '^0##',           0,   '0000',     undef, '    ' ],
 
-    [ '@###.',          0,  '   0.',         1, '   1.',    9999.5, '#####',
-                9999.4999,  '9999.',    -999.5, '#####' ],
+    [ '@###.',          0,  '   0.',         1, '   1.',    9999.6, '#####',
+                9999.4999,  '9999.',    -999.6, '#####' ],
 
-    [ '@##.##',         0, '  0.00',         1, '  1.00',  999.995, '######',
+    [ '@##.##',         0, '  0.00',         1, '  1.00',  999.996, '######',
                 999.99499, '999.99',      -100, '######' ],
 
     [ '@0#.##',         0, '000.00',         1, '001.00',       10, '010.00',