move op/ipc{msg,sem}.t into lib/ipc_sysv.t

[p5sagit/p5-mst-13.2.git] / t / lib / complex.t

diff --git a/t/lib/complex.t b/t/lib/complex.t
index 2783e42..2bb14f0 100755 (executable)
--- a/t/lib/complex.t
+++ b/t/lib/complex.t
@@ -26,6 +26,11 @@ my @script = (
 );
 my $eps = 1e-13;
 
+if ($^O eq 'unicos') {         # For some reason root() produces very inaccurate
+    $eps = 1e-11;      # results in Cray UNICOS, and occasionally also
+}                      # cos(), sin(), cosh(), sinh().  The division
+                       # of doubles is the current suspect.
+
 while (<DATA>) {
        s/^\s+//;
        next if $_ eq '' || /^\#/;