quadmath strtoflt128 accepts false infinities.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 14 Sep 2014 01:16:55 +0000 (21:16 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 19 Sep 2014 13:26:52 +0000 (09:26 -0400)
t/op/infnan.t

index 101fc24..8cb177d 100644 (file)
@@ -139,10 +139,14 @@ SKIP: {
   }
 }
 
-{
+SKIP: {
+    my @FInf = qw(Info Infiniti Infinityz);
+    if ($Config{usequadmath}) {
+        skip "quadmath strtoflt128() accepts false infinities", scalar @FInf;
+    }
     # Silence "isn't numeric in addition", that's kind of the point.
     local $^W = 0;
-    for my $i (qw(Info Infiniti Infinityz)) {
+    for my $i (@FInf) {
         cmp_ok("$i" + 0, '==', 0, "false infinity $i");
     }
 }