diff options
| -rw-r--r-- | MANIFEST | 1 | ||||
| -rw-r--r-- | t/op/arith2.t | 72 | ||||
| -rw-r--r-- | t/opbasic/arith.t | 57 |
3 files changed, 74 insertions, 56 deletions
@@ -5775,6 +5775,7 @@ t/op/anonconst.t See if :const works t/op/anonsub.t See if anonymous subroutines work t/op/append.t See if . works t/op/args.t See if operations on @_ work +t/op/arith2.t See if arithmetic works t/op/array.t See if array operations work t/op/assignwarn.t See if OP= operators warn correctly for undef targets t/op/attrhand.t See if attribute handlers work diff --git a/t/op/arith2.t b/t/op/arith2.t new file mode 100644 index 0000000000..fdd38938d7 --- /dev/null +++ b/t/op/arith2.t @@ -0,0 +1,72 @@ +#!./perl + +# These Config-dependent tests were originally in t/opbasic/arith.t, +# but moved here because t/opbasic/* should not depend on sophisticated +# constructs like "use Config;". + +BEGIN { + chdir 't' if -d 't'; + require './test.pl'; + set_up_inc('../lib'); +} + +use Config; + +sub try ($$$) { + print +($_[1] ? "ok" : "not ok") . " $_[0] - $_[2]\n"; +} + +my $T = 1; +print "1..9\n"; + +my $vms_no_ieee; +if ($^O eq 'VMS') { + $vms_no_ieee = 1 unless defined($Config{useieee}); +} + +if ($^O eq 'vos') { + print "not ok ", $T++, " # TODO VOS raises SIGFPE instead of producing infinity.\n"; +} +elsif ($vms_no_ieee || !$Config{d_double_has_inf}) { + print "ok ", $T++, " # SKIP -- the IEEE infinity model is unavailable in this configuration.\n" +} +elsif ($^O eq 'ultrix') { + print "not ok ", $T++, " # TODO Ultrix enters deep nirvana instead of producing infinity.\n"; +} +else { + # The computation of $v should overflow and produce "infinity" + # on any system whose max exponent is less than 10**1506. + # The exact string used to represent infinity varies by OS, + # so we don't test for it; all we care is that we don't die. + # + # Perl considers it to be an error if SIGFPE is raised. + # Chances are the interpreter will die, since it doesn't set + # up a handler for SIGFPE. That's why this test is last; to + # minimize the number of test failures. --PG + + my $n = 5000; + my $v = 2; + while (--$n) + { + $v *= 2; + } + print "ok ", $T++, " - infinity\n"; +} + + +# [perl #120426] +# small numbers shouldn't round to zero if they have extra floating digits + +unless ($Config{d_double_style_ieee}) { +for (1..8) { print "ok ", $T++, " # SKIP -- not IEEE\n" } +} else { +try $T++, 0.153e-305 != 0.0, '0.153e-305'; +try $T++, 0.1530e-305 != 0.0, '0.1530e-305'; +try $T++, 0.15300e-305 != 0.0, '0.15300e-305'; +try $T++, 0.153000e-305 != 0.0, '0.153000e-305'; +try $T++, 0.1530000e-305 != 0.0, '0.1530000e-305'; +try $T++, 0.1530001e-305 != 0.0, '0.1530001e-305'; +try $T++, 1.17549435100e-38 != 0.0, 'min single'; +# For flush-to-zero systems this may flush-to-zero, see PERL_SYS_FPU_INIT +try $T++, 2.2250738585072014e-308 != 0.0, 'min double'; +} diff --git a/t/opbasic/arith.t b/t/opbasic/arith.t index bbf7100dcb..7f4f1f290b 100644 --- a/t/opbasic/arith.t +++ b/t/opbasic/arith.t @@ -14,7 +14,7 @@ BEGIN { # functions imported from t/test.pl or Test::More, as those programs/libraries # use operators which are what is being tested in this file. -print "1..189\n"; +print "1..180\n"; sub try ($$$) { print +($_[1] ? "ok" : "not ok") . " $_[0] - $_[2]\n"; @@ -433,61 +433,6 @@ $a = (97656250000000000 % $1); $b = (97656250000000000 % "$1"); print "not "x($a ne $b), "ok ", $T++, qq ' - something % \$1 vs "\$1"\n'; -my $vms_no_ieee; -if ($^O eq 'VMS') { - eval { require Config }; - $vms_no_ieee = 1 unless defined($Config::Config{useieee}); -} - -if ($^O eq 'vos') { - print "not ok ", $T++, " # TODO VOS raises SIGFPE instead of producing infinity.\n"; -} -elsif ($vms_no_ieee || !$Config::Config{d_double_has_inf}) { - # note Config.pm is only loaded under VMS and via a require. - print "ok ", $T++, " # SKIP -- the IEEE infinity model is unavailable in this configuration.\n" -} -elsif ($^O eq 'ultrix') { - print "not ok ", $T++, " # TODO Ultrix enters deep nirvana instead of producing infinity.\n"; -} -else { - # The computation of $v should overflow and produce "infinity" - # on any system whose max exponent is less than 10**1506. - # The exact string used to represent infinity varies by OS, - # so we don't test for it; all we care is that we don't die. - # - # Perl considers it to be an error if SIGFPE is raised. - # Chances are the interpreter will die, since it doesn't set - # up a handler for SIGFPE. That's why this test is last; to - # minimize the number of test failures. --PG - - my $n = 5000; - my $v = 2; - while (--$n) - { - $v *= 2; - } - print "ok ", $T++, " - infinity\n"; -} - - -# [perl #120426] -# small numbers shouldn't round to zero if they have extra floating digits - -# note Config.pm is only loaded under VMS and via a require. -unless ($Config::Config{d_double_style_ieee}) { -for (1..8) { print "ok ", $T++, " # SKIP -- not IEEE\n" } -} else { -try $T++, 0.153e-305 != 0.0, '0.153e-305'; -try $T++, 0.1530e-305 != 0.0, '0.1530e-305'; -try $T++, 0.15300e-305 != 0.0, '0.15300e-305'; -try $T++, 0.153000e-305 != 0.0, '0.153000e-305'; -try $T++, 0.1530000e-305 != 0.0, '0.1530000e-305'; -try $T++, 0.1530001e-305 != 0.0, '0.1530001e-305'; -try $T++, 1.17549435100e-38 != 0.0, 'min single'; -# For flush-to-zero systems this may flush-to-zero, see PERL_SYS_FPU_INIT -try $T++, 2.2250738585072014e-308 != 0.0, 'min double'; -} - # string-to-nv should equal float literals try $T++, "1.23" + 0 == 1.23, '1.23'; try $T++, " 1.23" + 0 == 1.23, '1.23 with leading space'; |