@INC = '../lib';
}
+use Config;
+
print "1..134\n";
sub try ($$) {
my $n = 1127;
my $float = ($n % 1000) * 167772160.0;
- tryeq 131_sloppy, $float, 21307064320;
+ tryeq_sloppy 131, $float, 21307064320;
# On a 32 bit machine, if the i_multiply op is used, you will probably get
# -167772160. It's actually undefined behaviour, so anything may happen.
if ($^O eq 'vos') {
print "not ok 134 # TODO VOS raises SIGFPE instead of producing infinity.\n";
-} else {
+}
+elsif (($^O eq 'VMS') && !defined($Config{useieee})) {
+ print "ok 134 # SKIP -- the IEEE infinity model is unavailable in this configuration.\n";
+}
+elsif ($^O eq 'ultrix') {
+ print "not ok 134 # 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,