Permalink
Browse files

replace plan *; with number of tests S03-S06

git-svn-id: http://svn.pugscode.org/pugs@32083 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 643bc98 commit d2482f41b559d14cb0b6081c81773eee5f421823 mberends committed Aug 22, 2010
View
2 S04-statement-modifiers/for.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan *;
+plan 18;
# L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
View
2 S04-statements/for.t
@@ -13,7 +13,7 @@ for statement as possible
=end description
-plan *;
+plan 65;
## No foreach
# L<S04/The C<for> statement/"no foreach statement any more">
View
2 S04-statements/try.t
@@ -4,7 +4,7 @@ use Test;
# L<S04/"Statement parsing"/"or try {...}">
-plan *;
+plan 17;
{
# simple try
View
2 S05-capture/caps.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 24;
# L<S05/Match objects/"$/.caps">
View
2 S05-grammar/inheritance.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 17;
# L<S05/Grammars/"Like classes, grammars can inherit">
View
2 S05-grammar/methods.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 3;
grammar WithMethod {
rule TOP { 'lorem' | <.panic> }
View
2 S05-grammar/parse_and_parsefile.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 11;
# tests .parse and .parsefile methods on a grammar
View
2 S05-interpolation/lexicals.t
@@ -1,5 +1,5 @@
use Test;
-plan *;
+plan 10;
my regex abc { abc }
View
2 S05-match/blocks.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 22;
=begin description
View
2 S05-match/capturing-contexts.t
@@ -4,7 +4,7 @@ use MONKEY_TYPING;
use Test;
BEGIN { @*INC.push('t/spec/packages/') };
use Test::Util;
-plan *;
+plan 36;
# old: L<S05/Return values from matches/"A match always returns a Match object" >
# L<S05/Match objects/"A match always returns a " >
View
2 S05-metasyntax/angle-brackets.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 76;
=begin pod
View
2 S05-metasyntax/charset.t
@@ -12,7 +12,7 @@ be valid perl6.
=end pod
-plan *;
+plan 27;
if !eval('("a" ~~ /a/)') {
skip_rest "skipped tests - rules support appears to be missing";
View
2 S05-modifier/continue.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 13;
#L<S05/Modifiers/"The :c">
View
2 S05-modifier/counted-match.t
@@ -8,7 +8,7 @@ version 0.3 (12 Apr 2004), file t/counted.t.
=end pod
-plan *;
+plan 21;
my $data = "f fo foo fooo foooo fooooo foooooo";
View
2 S05-modifier/global.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 8;
=begin description
View
2 S05-modifier/ii.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 17;
#?pugs emit skip_rest("unimpl");
#?kp6 emit skip_rest("unimpl");
View
2 S05-modifier/overlapping.t
@@ -10,7 +10,7 @@ It probably needs a few syntax updates to remove p5isms
=end pod
-plan *;
+plan 21;
#?pugs emit force_todo(2,3,5,6,10);
View
2 S05-modifier/pos.t
@@ -8,7 +8,7 @@ version 0.3 (12 Apr 2004), file t/continue.t.
=end origin
-plan *;
+plan 40;
#?pugs emit force_todo(1,2,3,4,6);
View
2 S05-substitution/subst.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan *;
+plan 127;
# L<S05/Substitution/>
View
2 S06-advanced_subroutine_features/callframe.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 6;
# this test file contains tests for line numbers, among other things
# so it's extremely important not to randomly insert or delete lines.
View
2 S06-advanced_subroutine_features/wrap.t
@@ -11,7 +11,7 @@ use Test;
# mutating wraps -- those should be "deep", as in not touching coderefs
# but actually mutating how the coderef works.
-plan *;
+plan 64;
my @log;
View
2 S06-multi/proto.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 16;
# Test for proto definitions
class A { }
View
2 S06-multi/syntax.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan *;
+plan 37;
# L<S06/Routine modifiers/>
# L<S06/Parameters and arguments/>
View
2 S06-multi/type-based.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 51;
# type based dispatching
#
View
2 S06-operator-overloading/sub.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan *;
+plan 64;
=begin pod
View
2 S06-other/anon-hashes-vs-blocks.t
@@ -4,7 +4,7 @@ use Test;
# L<S06/Anonymous hashes vs blocks>
-plan *;
+plan 15;
my $hash = {
'1' => { '2' => 3, '4' => 5 },
View
2 S06-other/main-eval.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan *;
+plan 3;
# L<S06/Declaring a C<MAIN> subroutine/"the compilation unit was directly
# invoked rather than by being required by another compilation unit">
View
2 S06-signature/introspection.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 48;
# L<S06/Signature Introspection>
View
2 S06-signature/named-parameters.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 98;
# L<S06/Required parameters/"Passing a named argument that cannot be bound to
# a normal subroutine is also a fatal error.">
View
2 S06-signature/slurpy-params.t
@@ -3,7 +3,7 @@ use Test;
# L<S06/List parameters/Slurpy parameters>
-plan *;
+plan 67;
sub xelems(*@args) { @args.elems }
sub xjoin(*@args) { @args.join('|') }
View
2 S06-signature/unspecified.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 17;
# L<S06/Perl5ish subroutine declarations/You can declare a sub without
# parameter list>

0 comments on commit d2482f4

Please sign in to comment.