UNICOS: update test status.

p4raw-id: //depot/perl@16774

diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t
index fea1cb5..f9d6ee6 100644 (file)
--- a/ext/Socket/socketpair.t
+++ b/ext/Socket/socketpair.t
@@ -117,7 +117,8 @@ ok (shutdown(LEFT, SHUT_WR), "shutdown left for writing");
 {
   local $SIG{ALRM} = sub { warn "EOF on right took over 3 seconds" };
   local $TODO = "Known problems with unix sockets on $^O"
-      if $^O eq 'hpux' || $^O eq 'super-ux' || $^O eq 'unicosmk';
+      if $^O eq 'hpux'   || $^O eq 'super-ux' ||
+         $^O eq 'unicos' || $^O eq 'unicosmk';
   alarm 3;
   $! = 0;
   ok (eof RIGHT, "right is at EOF");

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 1bcafd8..0ba8a96 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -2897,16 +2897,13 @@ competing threads can corrupt shared global state.)
 
 =head2 UNICOS
 
- ../ext/Socket/socketpair.t       1   256    45    1   2.22%  12
- ../ext/Storable/t/downgrade.t   92 23552    59    6  10.17%  144-147
-                                                              150-151
  ../lib/Math/Trig.t                          26    1   3.85%  25
  ../lib/warnings.t                          470    1   0.21%  429
 
-The Trig and numconvert failures are caused by the slighly differing
-(from IEEE) floating point implementation of UNICOS.  The warnings
-failure is also related: the test assumes a certain floating point
-output format, this assumption fails in UNICOS.
+The Trig.t failure is caused by the slighly differing (from IEEE)
+floating point implementation of UNICOS.  The warnings.t failure is
+also related: the test assumes a certain floating point output format,
+this assumption fails in UNICOS.
 
 =head2 UNICOS/mk