Fix Unicode prop tests on Windows

Filenames that contain `:` are not allowed on Windows, so use `;` instead.
rakudo · Feb 10, 2018 · 801b1fa · 801b1fa
1 parent 467d894
commit 801b1fa
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/t/09-moar/General_Category:UnicodeData:2.t → t/09-moar/General_Category;UnicodeData;2.t b/t/09-moar/General_Category:UnicodeData:2.t → t/09-moar/General_Category;UnicodeData;2.t
@@ -5,7 +5,7 @@ use UnipropCheck;
 sub MAIN (Str $folder?, Bool:D :$debug = False) {
     my $*DEBUG = $debug;
     my $name = $*PROGRAM.basename.subst(/".t"$/, "").trans("-" => "/");
-    my ($property, $filename, $answer-column) = $name.split(':');
+    my ($property, $filename, $answer-column) = $name.split(';');
     $filename ~= ".txt";
     my $folder-io = $folder ?? $folder.IO !! IO::Path;
     test-file $folder-io, $filename, $property, :answer-column($answer-column);

diff --git a/...tegory:extracted-DerivedGeneralCategory.t → ...tegory;extracted-DerivedGeneralCategory.t b/...tegory:extracted-DerivedGeneralCategory.t → ...tegory;extracted-DerivedGeneralCategory.t
@@ -5,7 +5,7 @@ use UnipropCheck;
 sub MAIN (Str $folder?, Bool:D :$debug = False) {
     my $*DEBUG = $debug;
     my $name = $*PROGRAM.basename.subst(/".t"$/, "").trans("-" => "/");
-    my ($property, $filename, $answer-column) = $name.split(':');
+    my ($property, $filename, $answer-column) = $name.split(';');
     $filename ~= ".txt";
     my $folder-io = $folder ?? $folder.IO !! IO::Path;
     test-file $folder-io, $filename, $property, :answer-column($answer-column);

diff --git a/t/09-moar/Line_Break:LineBreak.t → t/09-moar/Line_Break;LineBreak.t b/t/09-moar/Line_Break:LineBreak.t → t/09-moar/Line_Break;LineBreak.t
@@ -5,7 +5,7 @@ use UnipropCheck;
 sub MAIN (Str $folder?, Bool:D :$debug = False) {
     my $*DEBUG = $debug;
     my $name = $*PROGRAM.basename.subst(/".t"$/, "").trans("-" => "/");
-    my ($property, $filename, $answer-column) = $name.split(':');
+    my ($property, $filename, $answer-column) = $name.split(';');
     $filename ~= ".txt";
     my $folder-io = $folder ?? $folder.IO !! IO::Path;
     test-file $folder-io, $filename, $property, :answer-column($answer-column);

diff --git a/t/09-moar/NAME:UnicodeData.t → t/09-moar/NAME;UnicodeData.t b/t/09-moar/NAME:UnicodeData.t → t/09-moar/NAME;UnicodeData.t
@@ -5,7 +5,7 @@ use UnipropCheck;
 sub MAIN (Str $folder?, Bool:D :$debug = False) {
     my $*DEBUG = $debug;
     my $name = $*PROGRAM.basename.subst(/".t"$/, "").trans("-" => "/");
-    my ($property, $filename, $answer-column) = $name.split(':');
+    my ($property, $filename, $answer-column) = $name.split(';');
     $filename ~= ".txt";
     my $folder-io = $folder ?? $folder.IO !! IO::Path;
     test-file $folder-io, $filename, $property, :answer-column($answer-column);