Try to fix strange failure on Windows only

Author: lizmat

lib/Data/StaticTable.rakumod

@@ -269,10 +269,10 @@ class StaticTable {
         @result
     }
 
-    multi method take(@rownums where .all ~~ Position) {
+    multi method take(@rownums where .all ~~ Data::StaticTable::Position) {
         self.new(@!header, self!gather-rowlist(@rownums))
     }
-    multi method take(*@rownums where .all ~~ Position) {
+    multi method take(*@rownums where .all ~~ Data::StaticTable::Position) {
         self.take(@rownums)
     }
 

t/001-basic.rakutest

@@ -121,8 +121,8 @@ my $t5 = Data::StaticTable.new(
 diag $t5.display;
 my %t5-iType = $t5.generate-index("Type");
 my %t5-iColor = $t5.generate-index("Color");
-diag "Index based on Type:  " ~ %t5-iType.perl;
-diag "Index based on Color: " ~ %t5-iColor.perl;
+diag "Index based on Type:  " ~ %t5-iType.raku;
+diag "Index based on Color: " ~ %t5-iColor.raku;
 ok(%t5-iType{'Car'} ~~ (1, 2), "Type 'Car' is in rows 1 and 2");
 ok(%t5-iColor{'white'} ~~ (1, 3), "Color 'white' is in rows 1 and 3");
 #-- Generate a StaticTable where there are only Type = 'Cars'
@@ -175,8 +175,8 @@ ok($t10[1]<Dim1> ~~ $t10.cell("Dim1", 1), "Equivalent ways to read the same cell
 
 diag "== Resulting StaticTable with only Dim2=5 ==";
 my %t10-iDim2 = $t10.generate-index("Dim2");
-diag %t10-iDim2{5}.perl;
-diag %t10-iDim2<5>.perl;
+diag %t10-iDim2{5}.raku;
+diag %t10-iDim2<5>.raku;
 my $t10-Dim2is5 = $t10.take(%t10-iDim2<5>);
 diag $t10-Dim2is5.display;
 ok($t10-Dim2is5.rows == 2, "Resulting table has 2 rows too");

t/002-rowset-constructor.rakutest

@@ -72,7 +72,7 @@ my $ = Data::StaticTable.new(
     rejected-data => %rejected-array-data
 ):data-has-header;
 diag "== Rejected data by row ==";
-diag %rejected-array-data.perl;
+diag %rejected-array-data.raku;
 ok(%rejected-array-data<3> ~~ (5).list, "For row 3 (considering a header), the value 5 was discarded");
 
 #-- For a hash, rejected data is recoverable in the way of an array
@@ -83,7 +83,7 @@ my $ = Data::StaticTable.new(
     rejected-data => @rejected-hash-data
 ):set-of-hashes;
 diag "== Rejected: rows that are not hashes ==";
-diag @rejected-hash-data.perl;
+diag @rejected-hash-data.raku;
 ok(@rejected-hash-data.elems == 1, "One row was rejected");
 ok(@rejected-hash-data[0] ~~ (10, 20), "Discarded data as expected");
 

t/003-query.rakutest

@@ -58,19 +58,19 @@ ok(
 
 diag "== Check different grep modes ==";
 my $rx = any(rx/ALPHA/, rx/0/);
-diag $q1.grep($rx, "Dim1"):n.perl;
+diag $q1.grep($rx, "Dim1"):n.raku;
 ok (($q1.grep($rx, "Dim1"):n) ~~ (4,5,6), "Expected rows");
 
-diag $q1.grep($rx, "Dim1"):r.perl;
+diag $q1.grep($rx, "Dim1"):r.raku;
 ok($q1.grep($rx, "Dim1"):r.elems == 3, "Expected 3 rows");
 
-diag $q1.grep($rx, "Dim1"):h.perl;
+diag $q1.grep($rx, "Dim1"):h.raku;
 ok($q1.grep($rx, "Dim1"):h.elems == 3, "Expected 3 rows");
 
-diag $q1.grep($rx, "Dim1"):nr.perl;
+diag $q1.grep($rx, "Dim1"):nr.raku;
 ok (($q1.grep($rx, "Dim1"):nr.keys) ~~ (4,5,6), "Expected rows indexes");
 
-diag $q1.grep($rx, "Dim1"):nh.perl;
+diag $q1.grep($rx, "Dim1"):nh.raku;
 ok (($q1.grep($rx, "Dim1"):nh.keys) ~~ (4,5,6), "Expected rows indexes");
 
 diag "== Create a new table from grep results of row numbers ==";

t/004-extra.rakutest

@@ -11,15 +11,15 @@ my $t1 = Data::StaticTable.new(
 );
 diag $t1.display;
 diag "== Serialization and EVAL test ==";
-my $t1-copy = EVAL $t1.perl;
-diag $t1-copy.perl;
+my $t1-copy = EVAL $t1.raku;
+diag $t1-copy.raku;
 diag "== Comparison test ==";
 my $t1-clone = $t1.clone();
 my $t2 = Data::StaticTable.new(
   <A B C>,
   (1,2,3,4,5,6,7,0,9) # The 0 before the 9 is the only difference
 );
-ok($t1 eqv $t1-copy, "Comparison works (equal to EVALuated copy from 'perl' method)");
+ok($t1 eqv $t1-copy, "Comparison works (equal to EVALuated copy from 'raku' method)");
 ok($t1 eqv $t1-clone, "Comparison works (equal to clone)");
 ok(($t1 eqv $t2) == False, "Comparison works (distinct)");