lib/locale.t - no longer special case quadmath builds
authorsisyphus <sisyphus1@optusnet.com.au>
Wed, 1 Aug 2018 12:29:57 +0000 (22:29 +1000)
committerKarl Williamson <khw@cpan.org>
Thu, 9 Aug 2018 17:23:15 +0000 (11:23 -0600)
The previous commit now has these respect locale

lib/locale.t

index 17931c8..57bc418 100644 (file)
@@ -2167,22 +2167,12 @@ foreach my $Locale (@Locale) {
     my $first_c_test = $locales_test_number;
 
     $test_names{++$locales_test_number} = 'Verify that a different locale radix works when doing "==" with a constant';
-    if ($Config{usequadmath}) {
-        print "# Skip: no locale radix with usequadmath ($test_names{$locales_test_number})\n";
-        report_result($Locale, $locales_test_number, 1);
-    } else {
-        report_result($Locale, $locales_test_number, $ok3);
-        $problematical_tests{$locales_test_number} = 1;
-    }
+    report_result($Locale, $locales_test_number, $ok3);
+    $problematical_tests{$locales_test_number} = 1;
 
     $test_names{++$locales_test_number} = 'Verify that a different locale radix works when doing "==" with a scalar';
-    if ($Config{usequadmath}) {
-        print "# Skip: no locale radix with usequadmath ($test_names{$locales_test_number})\n";
-        report_result($Locale, $locales_test_number, 1);
-    } else {
-        report_result($Locale, $locales_test_number, $ok4);
-        $problematical_tests{$locales_test_number} = 1;
-    }
+    report_result($Locale, $locales_test_number, $ok4);
+    $problematical_tests{$locales_test_number} = 1;
 
     report_result($Locale, ++$locales_test_number, $ok5);
     $test_names{$locales_test_number} = 'Verify that a different locale radix works when doing "==" with a scalar and an intervening sprintf';
@@ -2198,13 +2188,8 @@ foreach my $Locale (@Locale) {
     $test_names{$locales_test_number} = 'Verify that "==" with a scalar still works in inner no locale';
 
     $test_names{++$locales_test_number} = 'Verify that "==" with a scalar and an intervening sprintf still works in inner no locale';
-    if ($Config{usequadmath}) {
-        print "# Skip: no locale radix with usequadmath ($test_names{$locales_test_number})\n";
-        report_result($Locale, $locales_test_number, 1);
-    } else {
-        report_result($Locale, $locales_test_number, $ok8);
-        $problematical_tests{$locales_test_number} = 1;
-    }
+    report_result($Locale, $locales_test_number, $ok8);
+    $problematical_tests{$locales_test_number} = 1;
 
     debug "$first_e_test..$locales_test_number: \$e = $e, no locale\n";
 
@@ -2218,13 +2203,8 @@ foreach my $Locale (@Locale) {
     $problematical_tests{$locales_test_number} = 1;
 
     $test_names{++$locales_test_number} = 'Verify that after a no-locale block, a different locale radix still works when doing "==" with a scalar and an intervening sprintf';
-    if ($Config{usequadmath}) {
-        print "# Skip: no locale radix with usequadmath ($test_names{$locales_test_number})\n";
-        report_result($Locale, $locales_test_number, 1);
-    } else {
-        report_result($Locale, $locales_test_number, $ok11);
-        $problematical_tests{$locales_test_number} = 1;
-    }
+    report_result($Locale, $locales_test_number, $ok11);
+    $problematical_tests{$locales_test_number} = 1;
 
     report_result($Locale, ++$locales_test_number, $ok12);
     $test_names{$locales_test_number} = 'Verify that after a no-locale block, a different locale radix can participate in an addition and function call as numeric';
@@ -2465,14 +2445,9 @@ foreach my $Locale (@Locale) {
             }
         }
 
-        if ($Config{usequadmath}) {
-            print "# Skip: no locale radix with usequadmath ($Locale)\n";
-            report_result($Locale, $locales_test_number, 1);
-        } else {
-            report_result($Locale, $locales_test_number, @f == 0);
-            if (@f) {
-                print "# failed $locales_test_number locale '$Locale' numbers @f\n"
-            }
+        report_result($Locale, $locales_test_number, @f == 0);
+        if (@f) {
+            print "# failed $locales_test_number locale '$Locale' numbers @f\n"
        }
     }
 }