replace plan *; with number of tests

git-svn-id: http://svn.pugscode.org/pugs@32081 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Aug 22, 2010 · 76fe4f1 · 76fe4f1
1 parent 1d35860
commit 76fe4f1
Show file tree

Hide file tree

Showing 14 changed files with 14 additions and 14 deletions.
diff --git a/S02-builtin_data_types/array.t b/S02-builtin_data_types/array.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan *;
+plan 101;
 
 #L<S02/Mutable types/Array>
 

diff --git a/S02-builtin_data_types/hash.t b/S02-builtin_data_types/hash.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan *;
+plan 74;
 
 # basic lvalue assignment
 # L<S09/Hashes>

diff --git a/S02-builtin_data_types/lists.t b/S02-builtin_data_types/lists.t
@@ -9,7 +9,7 @@ use Test;
 # for this test. See
 # L<"http://www.nntp.perl.org/group/perl.perl6.language/22924">
 
-plan *;
+plan 27;
 
 # Indexing lists
 {

diff --git a/S02-builtin_data_types/nil.t b/S02-builtin_data_types/nil.t
@@ -3,7 +3,7 @@ use Test;
 
 # note that Nil is not actually a type, but just an empty parcel
 
-plan *;
+plan 15;
 
 sub empty_sub {}
 sub empty_do { do {} }

diff --git a/S02-builtin_data_types/type.t b/S02-builtin_data_types/type.t
@@ -9,7 +9,7 @@ Basic tests about variables having built-in types assigned
 
 # L<S02/"Built-In Data Types"/"A variable's type is a constraint indicating what sorts">
 
-plan *;
+plan 55;
 
 {
     ok(try {my Int $foo; 1}, 'compile my Int $foo');

diff --git a/S02-builtin_data_types/undefined-types.t b/S02-builtin_data_types/undefined-types.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan *;
+plan 23;
 
 # L<S02/Names and Variables/The empty>
 

diff --git a/S02-builtin_data_types/whatever.t b/S02-builtin_data_types/whatever.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan *;
+plan 55;
 
 # L<S02/Built-In Data Types/"The * character as a standalone term captures the notion of">
 # L<S02/Native types/"If any native type is explicitly initialized to">

diff --git a/S02-literals/listquote.t b/S02-literals/listquote.t
@@ -8,7 +8,7 @@ This file tests the circumfix:«< >» quoting constructs
 
 =end kwid
 
-plan *;
+plan 23;
 
 # L<S02/"Literals">
 # L<S03/"Chained comparisons">

diff --git a/S02-literals/numeric.t b/S02-literals/numeric.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan *;
+plan 22;
 
 isa_ok 1, Int, '1 produces a Int';
 ok 1 ~~ Numeric, '1 is Numeric';

diff --git a/S02-literals/quoting-unicode.t b/S02-literals/quoting-unicode.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan *;
+plan 72;
 
 #L<S02/Literals>
 # TODO:

diff --git a/S02-literals/quoting.t b/S02-literals/quoting.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan *;
+plan 152;
 
 my $foo = "FOO";
 my $bar = "BAR";

diff --git a/S02-literals/string-interpolation.t b/S02-literals/string-interpolation.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan *;
+plan 10;
 
 # L<S02/Literals/"A bare closure also interpolates in double-quotish context.">
 

diff --git a/S02-magicals/args.t b/S02-magicals/args.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan *;
+plan 4;
 
 isa_ok @*ARGS, Array, '@*ARGS is an Array';
 is_deeply @*ARGS, [], 'by default @*ARGS is empty array';

diff --git a/S02-names_and_variables/perl.t b/S02-names_and_variables/perl.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan *;
+plan 78;
 
 # L<S02/Names and Variables/To get a Perlish representation of any object>