Use set_up_inc for several unit tests

[perl5.git] / t / uni / case.pl

diff --git a/t/uni/case.pl b/t/uni/case.pl
index d4bfc07..a391fe3 100644 (file)
--- a/t/uni/case.pl
+++ b/t/uni/case.pl
@@ -1,5 +1,5 @@
 BEGIN {
-    require "test.pl";
+    require "./test.pl";
     set_up_inc(qw(../lib .));
     skip_all_without_unicode_tables();
 }
@@ -82,7 +82,7 @@ sub casetest {
 
     my $test = $already_run + 1;
 
-    for my $ord (sort keys %simple) {
+    for my $ord (sort { $a <=> $b } keys %simple) {
        my $char = pack "W", $ord;
         my $disp_input = unidump($char);
 
@@ -96,7 +96,7 @@ sub casetest {
        }
     }
 
-    for my $ord (sort keys %spec) {
+    for my $ord (sort { $a <=> $b } keys %spec) {
        my $char = pack "W", $ord;
         my $disp_input = unidump($char);