# New Ticket Created by "Paco Linux"
# Please include the string: [perl #59442]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=59442 >
as r31402 : Expanded float precision to 15 digits from 6. One side effect
is that float output no longer always has six digits after the dot; this
drops trailing zeroes. Now the result is correct.
t/benchmark/benchmarks......1/37
# Failed test 'examples/benchmarks/addit.pasm'
# at t/benchmark/benchmarks.t line 222.
# got: '21001097.97
# '
# expected: '21001097.970000
# '
t/benchmark/benchmarks......2/37
# Failed test 'examples/benchmarks/addit.pir'
# at t/benchmark/benchmarks.t line 222.
# got: '21001097.97
# '
# expected: '2.10011e+07
# '
t/benchmark/benchmarks......3/37
# Failed test 'examples/benchmarks/addit2.pir'
# at t/benchmark/benchmarks.t line 222.
# got: '21001097.97
# '
# expected: '2.10011e+07
# '
Paco
--- t/benchmark/benchmarks.t 2008-09-29 11:05:48.000000000 +0200
+++ t/benchmark/benchmarks.new 2008-09-29 11:06:40.000000000 +0200
@@ -26,9 +26,9 @@
# Expected output from scripts in 'examples/benchmarks'.
# The expected out is needed for checking results with pir_output_is() and pir_output_like().
my %outputs = (
- q{addit.pir} => qq(2.10011e+07\n),
- q{addit.pasm} => qq(21001097.970000\n),
- q{addit2.pir} => qq(2.10011e+07\n),
+ q{addit.pir} => qq(21001097.97\n),
+ q{addit.pasm} => qq(21001097.97\n),
+ q{addit2.pir} => qq(21001097.97\n),
q{array_access.pir} => qr/
1\s\*\s1000\s=\s1000\n
100\s\*\s1000\s=\s100000\n
