Add missing plans to subtests

Closes #485 S#485

Author: zoffixznet

APPENDICES/A03-older-specs/01-misc.t

@@ -220,22 +220,22 @@ group-of 7 => 'now-deprecated subst-mutate' => {
     subtest '.subst-mutate with multi-match args set $/ to a List of matches' => {
         plan 2*(2+5);
         for 1234567, '1234567' -> $type {
-            subtest "$type.^name().subst-mutate: :g" => {
+            group-of 4 => "$type.^name().subst-mutate: :g" => {
               ($ = $type).subst-mutate(:g, /../, 'XX');
               isa-ok $/, List, '$/ is a List…';
               cmp-ok +$/, '==', 3, '…with 3 items…';
               is-deeply $/.map({.WHAT}).unique, (Match,).Seq, '…all are Match…';
               is-deeply $/.map(~*), <12 34 56>.map(*.Str), '…all have right values';
             }
-            subtest ".subst-mutate: :x" => {
+            group-of 4 => ".subst-mutate: :x" => {
               ($ = $type).subst-mutate(:2x, /../, 'XX');
               isa-ok $/, List, '$/ is a List…';
               cmp-ok +$/, '==', 2, '…with 2 items…';
               is-deeply $/.map({.WHAT}).unique, (Match,).Seq, '…all are Match…';
               is-deeply $/.map(~*), <12 34>.map(*.Str), '…all have right values';
             }
             for <nth st nd rd th> -> $suffix {
-              subtest ".subst-mutate: :$suffix" => {
+              group-of 4 => ".subst-mutate: :$suffix" => {
                   ($ = $type).subst-mutate(|($suffix => 1..3), /../, 'XX');
                   isa-ok $/, List, '$/ is a List…';
                   cmp-ok +$/, '==', 3, '…with 3 items…';

S02-types/baghash.t

@@ -1,5 +1,7 @@
 use v6;
+use lib $?FILE.IO.parent(2).add: 'packages';
 use Test;
+use Test::Util;
 
 plan 304;
 
@@ -591,7 +593,7 @@ subtest '.hash does not cause keys to be stringified' => {
     is-deeply $bh.Mix, Mix.new(<a a b>), '.Mix values are correct';
 }
 
-subtest 'BagHash autovivification of non-existent keys' => {
+group-of 10 => 'BagHash autovivification of non-existent keys' => {
     my BagHash  $bh1;
     is-deeply   $bh1<poinc>++,  0, 'correct return of postfix ++';
     is-deeply   $bh1<poinc>,    1, 'correct result of postfix ++';

S02-types/mixhash.t

@@ -513,7 +513,7 @@ subtest '.hash does not cause keys to be stringified' => {
         'negative MixHash weights removed from Bag coercion without warnings';
 }
 
-subtest 'MixHash autovivification of non-existent keys' => {
+group-of 10 => 'MixHash autovivification of non-existent keys' => {
     my MixHash  $mh1;
     is-deeply   $mh1<poinc>++,  0, 'correct return of postfix ++';
     is-deeply   $mh1<poinc>,    1, 'correct result of postfix ++';

S02-types/native.t

@@ -1,5 +1,7 @@
 use v6;
+use lib $?FILE.IO.parent(2).add: 'packages';
 use Test;
+use Test::Util;
 
 plan 92;
 
@@ -340,7 +342,7 @@ dies-ok { EVAL 'my str $x = Str;' }, '"my str $x = Str" dies';
 # RT #127813
 #?rakudo.jvm todo 'Expected a native int argument for $a; works standalone, probably wrong multi selected'
 {
-    subtest 'using native types as named parameters', {
+    group-of 13 => 'using native types as named parameters' => {
         eval-lives-ok '-> int    :$x { $x == 1   or die }(:x( 1 ))', 'int   ';
         eval-lives-ok '-> int8   :$x { $x == 1   or die }(:x( 1 ))', 'int8  ';
         eval-lives-ok '-> int16  :$x { $x == 1   or die }(:x( 1 ))', 'int16 ';

S02-types/sethash.t

@@ -477,7 +477,7 @@ subtest '.hash does not cause keys to be stringified' => {
     is-deeply $sh.SetHash, $sh, '.SetHash returns self';
 }
 
-subtest 'SetHash autovivification of non-existent keys' => {
+group-of 10 => 'SetHash autovivification of non-existent keys' => {
     # Sets' values are just True/False, so all of the following operations
     # simply control existence of a key
     my SetHash  $sh1;

S03-metaops/misc.t

@@ -43,7 +43,9 @@ subtest 'cover metaop call simplification optimization' => {
         is-deeply $a, 1040, '(1)';
     }
     subtest 'array var with ((||=) += )' => {
-        my @a = 20; (@a ||= 42) += 10; dd @a
+        plan 1;
+        my @a = 20; (@a ||= 42) += 10;
+        is-deeply @a, [11], '(1)';
     }
 
     # https://github.com/rakudo/rakudo/issues/1989

S03-operators/arith.t

@@ -1,5 +1,8 @@
 use v6;
+use lib $?FILE.IO.parent(2).add: 'packages';
 use Test;
+use Test::Util;
+
 plan 158;
 
 my $five = abs(-5);
@@ -392,7 +395,7 @@ isa-ok 4 % 1.1, Rat, 'infix:<%> returns Rat when it can';
 isa-ok 4.8 % 1.1, Rat, 'infix:<%> returns Rat when it can';
 
 # RT #132083 - Broken math
-subtest '-0x7FFFFFFF - 1 math weirdness' => {
+group-of 3 => '-0x7FFFFFFF - 1 math weirdness' => {
     is-deeply -0x7FFFFFFF - 1 == -2147483648, True, '== -2147483648';
     is-deeply -0x7FFFFFFF - 1 == -18446744071562067968, False,
         '== -18446744071562067968';

S03-smartmatch/range-range.t

@@ -43,7 +43,7 @@ subtest 'smartmatch against numeric range' => {
                            2e0..3, 2e0..3e0, 2e0..3.0, 2e0..fr3,
                            2.0..3, 2.0..3e0, 2.0..3.0, 2.0..fr3,
                            fr2..3, fr2..fr3, fr2..fr3, fr2..fr3;
-    constant $plan = 2 + @variants * (@true + @false);
+    plan 2 + @variants * (@true + @false);
     is-deeply 3..4     ~~ -1/0..1/0, True,  '  3..4   ~~ -1/0..1/0';
     is-deeply 0/0..0/0 ~~ -1/0..1/0, False, '0/0..0/0 ~~ -1/0..1/0';
 
@@ -79,7 +79,7 @@ subtest 'smartmatch numeric range against string range [numeric strings]' => {
     constant @false = 0..30,   0..fr30,   0..30e0,   0..30.0,   0..30/1,
                     0e0..30, fr0..fr30, 0.0..30e0, 0e0..30.0, 0e0..30/1;
     constant @variants = '0'..3,   '0'..3.0, '0'..3e0, '0'..fr3;
-    constant $plan = @variants * (@true + @false);
+    plan @variants * (@true + @false);
 
     for @variants -> $r {
         is-deeply $_ ~~ $r, True,  "{.perl} ~~ {$r.perl}" for @true;

S04-declarations/my.t

@@ -1,5 +1,7 @@
 use v6;
+use lib $?FILE.IO.parent(2).add: 'packages';
 use Test;
+use Test::Util;
 
 plan 110;
 
@@ -382,7 +384,7 @@ eval-lives-ok 'multi f(@a) { }; multi f(*@a) { }; f(my @a = (1, 2, 3))',
 }
 
 # RT #126125
-subtest 'report Malformed my correctly' => {
+group-of 2 => 'report Malformed my correctly' => {
     throws-like q[my Any :D $a], X::Syntax::Malformed;
     throws-like q[my Any ^:D $a], X::Syntax::Malformed;
 }

S05-substitution/subst.t

@@ -574,7 +574,7 @@ subtest 'List/Match result adverb handling' => {
     # can result in either a Match or a List of Matches in $/
     plan 3;
 
-    subtest ':2nd:g' => {
+    group-of 2 => ':2nd:g' => {
         subtest 'S///' => {
             plan 3;
             is-deeply (S:2nd:g/./Z/ with 'abc'), 'aZc', 'return value';
@@ -592,7 +592,7 @@ subtest 'List/Match result adverb handling' => {
         }
     }
 
-    subtest ':x(1..3)' => {
+    group-of 2 => ':x(1..3)' => {
         subtest 'S///' => {
             plan 3;
             is-deeply (S:x(1..3)/./Z/ with 'abcd'), 'ZZZd', 'return value';
@@ -610,7 +610,7 @@ subtest 'List/Match result adverb handling' => {
         }
     }
 
-    subtest ':th(1, 3)' => {
+    group-of 2 => ':th(1, 3)' => {
         subtest 'S///' => {
             plan 3;
             is-deeply (S:th(1, 3)/./Z/ with 'abcd'), 'ZbZd', 'return value';
@@ -644,22 +644,22 @@ subtest '.subst(Str:D, Str:D)' => {
 subtest '.subst with multi-match args set $/ to a List of matches' => {
     plan 2*(2+5);
     for 1234567, '1234567' -> $type {
-        subtest "$type.^name().subst: :g" => {
+        group-of 4 => "$type.^name().subst: :g" => {
           ($ = $type).subst(:g, /../, 'XX');
           isa-ok $/, List, '$/ is a List…';
           cmp-ok +$/, '==', 3, '…with 3 items…';
           is-deeply $/.map({.WHAT}).unique, (Match,).Seq, '…all are Match…';
           is-deeply $/.map(~*), <12 34 56>.map(*.Str), '…all have right values';
         }
-        subtest ".subst: :x" => {
+        group-of 4 => ".subst: :x" => {
           ($ = $type).subst(:2x, /../, 'XX');
           isa-ok $/, List, '$/ is a List…';
           cmp-ok +$/, '==', 2, '…with 2 items…';
           is-deeply $/.map({.WHAT}).unique, (Match,).Seq, '…all are Match…';
           is-deeply $/.map(~*), <12 34>.map(*.Str), '…all have right values';
         }
         for <nth st nd rd th> -> $suffix {
-          subtest ".subst: :$suffix" => {
+          group-of 4 => ".subst: :$suffix" => {
               ($ = $type).subst(|($suffix => 1..3), /../, 'XX');
               isa-ok $/, List, '$/ is a List…';
               cmp-ok +$/, '==', 3, '…with 3 items…';