Move test to better place

Raku · Oct 11, 2016 · 33c09fc · 33c09fc
1 parent 693052d
commit 33c09fc
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 6 deletions.
diff --git a/S03-operators/repeat.t b/S03-operators/repeat.t
@@ -8,7 +8,7 @@ Repeat operators for strings and lists
 
 =end description
 
-plan 54;
+plan 52;
 
 #L<S03/Changes to Perl 5 operators/"x (which concatenates repetitions of a string to produce a single string">
 
@@ -169,10 +169,6 @@ is ((2, 4, 6).Seq xx *)[^2], ((2, 4, 6), (2, 4, 6)),
         '(& xx Inf) works as & xx Inf';
     is-deeply infix:<xx>({$++;}, 4e0)[^4],  (|^4).Seq,
         '(& xx Num) works as & xx Int';
-
-    'abc123def' ~~ m:g/\d/;
-    is-deeply $/.from, 3, 'List.from';
-    is-deeply $/.to,   6, 'List.to';
 }
 
 # vim: ft=perl6
diff --git a/S05-match/positions.t b/S05-match/positions.t
@@ -8,7 +8,7 @@ version 0.3 (12 Apr 2004), file t/pos.t.
 
 =end pod
 
-plan 10;
+plan 12;
 
 my $str = "abrAcadAbbra";
 
@@ -27,4 +27,10 @@ ok($/<Aa>.from == 3,      'Subrule match pos is 3');
 
 is ('abc' ~~ /\d+/), Nil, 'Failed match returns Nil';
 
+{ # coverage; 2016-10-11
+    'abc123def' ~~ m:g/\d/;
+    is-deeply $/.from, 3, 'List.from';
+    is-deeply $/.to,   6, 'List.to';
+}
+
 # vim: ft=perl6