Some more plans added

S04-exceptions/pending.t

@@ -1,5 +1,6 @@
 use v6;
 use Test;
+plan 21;
 
 # XXX I'm not very confident in my reading of S04, so give a suspicious eye
 #     to these tests before using them.
@@ -80,6 +81,4 @@ sub fail_it { fail $^a }
     ok $win.handled, '.handled method is true for all Mus';
 }
 
-done;
-
 # vim: ft=perl6

S05-modifier/exhaustive.t

@@ -1,5 +1,6 @@
 use v6;
 use Test;
+plan 11;
 
 =begin pod
 
@@ -145,6 +146,4 @@ is(~$/[2]<noun>, 'arrow', 'Rule capture 2 noun');
 ok(!( "fooooo" ~~ m:exhaustive { s o+ } ), 'Subsequent failed any match...');
     ok(@$/ == 0, '...leaves @$/ empty');
 
-done();
-
 # vim: ft=perl6

S05-modifier/my.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-
+plan 24;
 
 # L<S05/Modifiers/Any grammar regex is really just a kind of method>
 
@@ -72,6 +72,4 @@ is $DeclaratorTest1::our, 'zho', 'can access our variable from the outside';
     ok '55' ~~ m/ ^ <la> $ /, 'can match changed :let variable';
     is $a, 5, 'successful match preserves new :let value';
 }
-
-done;
 # vim: ft=perl6 sw=4 ts=4 expandtab

S05-modifier/ratchet.t

@@ -1,5 +1,6 @@
 use v6;
 use Test;
+plan 5;
 
 #L<S05/Modifiers/"The new :r or :ratchet modifier">
 # for other tests see
@@ -23,6 +24,4 @@ ok 'aaaa'  ~~ m/ :ratchet ^ [ :!ratchet <aplus> a ]  /,
 ok 'aaaa'  ~~ m/ ^ :!ratchet <aplus> :ratchet a  /,
    'Same if not grouped';
 
-done;
-
 # vim: ft=perl6

S05-transliteration/79778.t

@@ -1,7 +1,6 @@
 use v6;
 
 use Test;
+plan 1;
 
 is "this sentence no verb".trans( / \s+ / => " " ), 'this sentence no verb',"RT #79778 got expected string"  ;
-
-done;

S06-advanced/callsame.t

@@ -1,5 +1,6 @@
 use v6;
 use Test;
+plan 3;
 
 # RT 71754
 {
@@ -28,6 +29,4 @@ use Test;
 
 }
 
-done;
-
 # vim: ft=perl6

S06-advanced/return_function.t

@@ -1,4 +1,5 @@
-use Test; plan 4;
+use Test;
+plan 4;
 
 # L<S06/The C<return> function/prints 1 via named argument>
 

S06-multi/by-trait.t

@@ -1,5 +1,6 @@
 use v6;
 use Test;
+plan 5;
 
 # RT 66588
 {
@@ -20,6 +21,4 @@ use Test;
     is $rw_call, 1, 'read-write multi was called';
 }
 
-done;
-
 # vim: ft=perl6

S06-operator-overloading/workout.t

@@ -2,6 +2,7 @@ use v6;
 
 use Test;
 
+plan 84;
 
 =begin pod
 
@@ -257,6 +258,4 @@ is_approx_array(((3/2) <<*<< @vectors) >>T-<< @vectors , @vectors >>/>> 2,
 is_approx_array(((3/2) <<*<< @vectors) »T-« @vectors , @vectors >>/>> 2,
                 "Hyper: 3/2 v - v equals v / 2");
 
-done;
-
 # vim: ft=perl6

S12-enums/basic.t

@@ -1,5 +1,6 @@
 use v6;
 use Test;
+plan 34;
 
 # Very basic enum tests
 
@@ -112,6 +113,4 @@ dies_ok({ my Color $c3 = "for the fail" }, 'enum as a type enforces checks');
     is T2.enums.keys.sort.join('|'), 'd|e|f', 'enum keys (2)';
 }
 
-done;
-
 # vim: ft=perl6

S12-enums/misc.t

@@ -2,6 +2,8 @@ use v6;
 
 use Test;
 
+plan 13;
+
 # RT #63826
 {
     class EnumClass     { enum C <a b c> }
@@ -51,6 +53,4 @@ use Test;
     lives_ok { OK.^methods }, 'can call .^methods on an enum';
 }
 
-done;
-
 # vim: ft=perl6

S12-enums/thorough.t

@@ -4,6 +4,7 @@ use MONKEY_TYPING;
 
 use Test;
 
+plan 34;
 
 =begin description
 
@@ -117,6 +118,4 @@ ok Bool::True.perl ~~/^ 'Bool::True'/, 'Bool::True.perl';
         "Cannot mixin an enum into a class";
 }
 
-done;
-
 # vim: ft=perl6

S12-subset/subtypes.t

@@ -2,6 +2,7 @@ use v6;
 
 use Test;
 
+plan 77;
 
 =begin description
 
@@ -286,6 +287,4 @@ ok "x" !~~ NW1, 'subset declaration without where clause rejects wrong value';
     isa_ok $!, X::Undeclared, 'subset in signature cannot use non-predeclared variable';
 }
 
-done;
-
 # vim: ft=perl6

S26-documentation/08-formattingcodes.t

@@ -1,4 +1,6 @@
 use Test;
+plan 43;
+
 my $r;
 
 =pod
@@ -76,4 +78,4 @@ is $r.content[2].content,
 $r = $=pod[4];
 is $r.content[0].content, 'C<boo> B<bar> asd';
 
-done;
+# vim: ft=perl6

S32-num/cool-num.t

@@ -1,5 +1,6 @@
 use v6;
 use Test;
+plan 43;
 
 =begin pod
 
@@ -95,6 +96,4 @@ is "0".sign, 0, '"0".sign == 0';
 is_approx "17".cis, 17.cis, '"17".cis == 17.cis';
 is_approx "17".unpolar("42"), 17.unpolar(42), '"17".unpolar("42") == 17.unpolar(42)';
 
-done;
-
 # vim: ft=perl6

S32-num/stringify.t

@@ -1,5 +1,6 @@
 use v6;
 use Test;
+plan 112;
 
 # L<S32::Numeric/Complex/"=item gist">
 
@@ -94,4 +95,3 @@ lives_ok { Rat.Str }, 'Rat.Str does not die';
 # TODO: FatRat, Num (once better specced), Int (maybe, but hard to mess up)
 
 # vim: ft=perl6
-done;

S32-str/numeric.t

@@ -1,5 +1,6 @@
 use v6;
 use Test;
+plan 168;
 
 #?DOES 2
 sub check($str, $expected_type, $expected_number, $desc?) {
@@ -159,6 +160,4 @@ f      '3+Infi';
     is +Str.new, 0, 'RT #100778'
 }
 
-done;
-
 # vim: ft=perl6 

S32-str/substr-rw.t

@@ -2,6 +2,8 @@ use v6;
 
 use Test;
 
+plan 31;
+
 sub l (Int $a) {  my $l = $a; return $l }
 
 {
@@ -127,4 +129,4 @@ sub l (Int $a) {  my $l = $a; return $l }
     is($o, " d", "other lvalue wiggled around (substr-rw(Int, StrLen)).");
 };
 
-done;
+# vim: ft=perl6 

integration/advent2009-day16.t

@@ -2,7 +2,7 @@
 
 use v6;
 use Test;
-
+plan 11;
 
 sub weather($weather) {
     given $weather {
@@ -72,4 +72,4 @@ is (.[0] + .[1] + .[2] given @list), 6, 'Statement ending given';
 
 eval_lives_ok 'for ^20 {my ($a,$b)=<AT CG>.pick.comb.pick(*); my ($c,$d)=sort map {6+4*sin($_/2)},$_,$_+4; sprintf "%{$c}s%{$d-$c}s\n",$a,$b}' , 'Can handle "map {...} ,$x,$y"';
 
-done;
+# vim: ft=perl6

integration/advent2012-day15.t

@@ -93,3 +93,4 @@ for <yay yippe sinbad good baddie> {
 is_deeply @success, [qw<yay yippe good>], 'KEEP';
 is_deeply @failure, [qw<sinbad baddie>], 'UNDO';
 
+# vim: ft=perl6