run/locale.t: Use 'is' not 'ok' for a test

'is' is a more modern, better options
Perl · Feb 2, 2023 · 86b0a3c · 86b0a3c
1 parent 2c7695d
commit 86b0a3c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/run/locale.t b/t/run/locale.t
@@ -170,8 +170,8 @@ EOF
     SKIP: {
         skip("no UTF-8 locale available where LC_NUMERIC radix isn't ASCII", 1 )
             unless $utf8_radix;
-        ok($radix_encoded_as_utf8 == 1, "UTF-8 locale '$utf8_radix' with non-ASCII"
-                                        . " radix is marked UTF-8");
+        is($radix_encoded_as_utf8, 1, "UTF-8 locale '$utf8_radix' with non-ASCII"
+                                    . " radix is marked UTF-8");
     }
 
     SKIP: {