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';
$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";
$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';
}
}
- 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"
}
}
}