Change 20931: Some Ultrix test dodgings.

[Jarkko Hietaniemi]

Change 20931 by [EMAIL PROTECTED] on 2003/08/29 12:59:32

        Some Ultrix test dodgings.

Affected files ...

... //depot/perl/t/base/num.t#11 edit
... //depot/perl/t/op/arith.t#19 edit
... //depot/perl/t/op/pack.t#85 edit

Differences ...

==== //depot/perl/t/base/num.t#11 (text) ====
Index: perl/t/base/num.t
--- perl/t/base/num.t#10~17874~ Sun Sep  8 10:10:38 2002
+++ perl/t/base/num.t   Fri Aug 29 05:59:32 2003
@@ -171,8 +171,13 @@
 $b = 0.0005000000000000000104;
 print $a <= $b ? "ok 46\n" : "not ok 46\n";
 
-$a = 0.00000000000000000000000000000000000000000000000000000000000000000001;
-print $a > 0 ? "ok 47\n" : "not ok 47\n";
+if ($^O eq 'ultrix') {
+  # Ultrix enters looong nirvana over this.
+  print "ok 47\n";
+} else {
+  $a = 0.00000000000000000000000000000000000000000000000000000000000000000001;
+  print $a > 0 ? "ok 47\n" : "not ok 47\n";
+}
 
 $a = 80000.0000000000000000000000000;
 print $a == 80000.0 ? "ok 48\n" : "not ok 48\n";

==== //depot/perl/t/op/arith.t#19 (xtext) ====
Index: perl/t/op/arith.t
--- perl/t/op/arith.t#18~17025~ Wed Jun  5 16:48:28 2002
+++ perl/t/op/arith.t   Fri Aug 29 05:59:32 2003
@@ -283,6 +283,9 @@
 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.

==== //depot/perl/t/op/pack.t#85 (xtext) ====
Index: perl/t/op/pack.t
--- perl/t/op/pack.t#84~20824~  Fri Aug 22 01:20:15 2003
+++ perl/t/op/pack.t    Fri Aug 29 05:59:32 2003
@@ -183,8 +183,8 @@
     skip "-- the IEEE infinity model is unavailable in this configuration."
        if (($^O eq 'VMS') && !defined($Config{useieee}));
 
-    skip "-- MPE/iX has serious fp indigestionf on w-packed infinities"
-       if (($^O eq 'mpeix'));
+    skip "-- $^O has serious fp indigestion on w-packed infinities"
+       if (($^O eq 'mpeix') || ($^O eq 'ultrix'));
 
     my $inf = eval '2**10000';
 
@@ -203,6 +203,9 @@
 
     skip "-- the full range of an IEEE double may not be available in this 
configuration."
        if (($^O eq 'VMS') && !defined($Config{useieee}));
+
+    skip "-- $^O does not like 2**1023"
+       if (($^O eq 'ultrix'));
 
     # This should be about the biggest thing possible on an IEEE double
     my $big = eval '2**1023';
End of Patch.