diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-03-02 21:33:22 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-03-02 21:33:22 +0000 |
| commit | 9acd3e2cb8772b6eb8d3f739a8401e73420609ba (patch) | |
| tree | 9efe1856f23fdc56d49e591f01516629ee14511a /t | |
| parent | 051696ff3e39f65e14b8a0b9c9470826241ed0b3 (diff) | |
| download | perl-9acd3e2cb8772b6eb8d3f739a8401e73420609ba.tar.gz | |
Remove machine-dependent rounding dependency from write overflow
tests
p4raw-id: //depot/perl@22422
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/write.t | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/t/op/write.t b/t/op/write.t index 52ba517d67..ccecac389e 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', |