POSIX/t/export.t: Generalize for non-ASCII platforms

diff --git a/ext/POSIX/t/export.t b/ext/POSIX/t/export.t
index caa7f2b..7e18da4 100644 (file)
--- a/ext/POSIX/t/export.t
+++ b/ext/POSIX/t/export.t
@@ -10,6 +10,12 @@ plan(skip_all => "POSIX is unavailable")
 require POSIX;
 POSIX->import();
 
+require($ENV{PERL_CORE} ? "../../t/charset_tools.pl" : "../t/charset_tools.pl");
+
+sub ascii_order {   # Sort helper
+    return native_to_uni($a) cmp native_to_uni($b);
+}
+
 # @POSIX::EXPORT and @POSIX::EXPORT_OK are generated. The intent of this test is
 # to catch *unintended* changes to them introduced by bugs in refactoring.
 
@@ -139,5 +145,5 @@ while (my ($var, $expect) = each %expect) {
     my $have = *{$POSIX::{$var}}{ARRAY};
     cmp_ok(@$have, '==', @$expect,
           "Correct number of entries for \@POSIX::$var");
-    is_deeply([sort @$have], $expect, "Correct entries for \@POSIX::$var");
+    is_deeply([sort ascii_order @$have], $expect, "Correct entries for \@POSIX::$var");
 }