regcomp.c: Rename a variable

[perl5.git] / t / op / exp.t

diff --git a/t/op/exp.t b/t/op/exp.t
index f97b6d8..5878f44 100644 (file)
--- a/t/op/exp.t
+++ b/t/op/exp.t
@@ -4,11 +4,13 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
-plan tests => 30;
+use Config;
+
+plan tests => 31;
 
 # compile time evaluation
 
@@ -109,3 +111,11 @@ cmp_ok(round(atan2($x1, $x2)), '==', '0.463647609', "atan2($x1, $x2)");
 # atan2() tests testing with -0.0, 0.0, -1.0, 1.0 were removed due to
 # differing results from calls to atan2() on various OS's and
 # architectures.  See perlport.pod for more information.
+
+SKIP: {
+    unless ($Config{usequadmath}) {
+        skip "need usequadmath", 1;
+    }
+    # For quadmath we have a known precision.  
+    is(sqrt(2), '1.4142135623730950488016887242097', "quadmath sqrt");
+}