Permalink
Browse files

[t/spec] update some plan counts to make spectest progress stats more…

… accurate

git-svn-id: http://svn.pugscode.org/pugs@29663 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 285bebe commit c25c3aa3b667063d63cd6ee01b78877df459dd16 mberends committed Feb 9, 2010
View
2 S02-builtin_data_types/bool.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 37;
# L<S12/Enums/"Two built-in enums are">
View
2 S02-names/identifier.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 18;
# L<S02/Names/An identifier is composed of an alphabetic character>
View
2 S02-names_and_variables/list_array_perl.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 21;
# L<S02/Names and Variables/so that Perl can evaluate the result
# back to the same object>
View
2 S02-whitespace_and_comments/sub-block-parsing.t
@@ -12,7 +12,7 @@ use Test;
# module{...}
# class{...}
-plan *;
+plan 4;
#?rakudo skip 'confused near "(sub { 42 "'
ok(sub { 42 }(), 'sub {...} works'); # TODO: clarify
View
2 S03-operators/not.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 14;
sub not_ok($cond,$desc) {
if $cond {
View
2 S03-smartmatch/any-pair.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 10;
#L<S03/Smart matching/Any Pair test object attribute>
#?rakudo skip 'Any ~~ Pair'
View
2 S03-smartmatch/any-type.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 3;
#L<S03/Smart matching/type membership>
{
View
2 S04-exceptions/fail.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan *;
+plan 8;
# L<S04/Exceptions/The fail function>
View
2 S06-multi/syntax.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan *;
+plan 33;
# L<S06/Routine modifiers/>
# L<S06/Parameters and arguments/>
View
2 S06-signature/optional.t
@@ -3,7 +3,7 @@ use Test;
# L<S06/Optional parameters/>
-plan *;
+plan 14;
sub opt1($p?) { defined($p) ?? $p !! 'undef'; }
View
2 S07-iterators/range-iterator.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 23;
{
my $r = RangeIter.new(1..5);
View
2 S14-roles/composition.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 20;
# L<S14/Roles/"Roles may be composed into a class at compile time">
View
2 S16-filehandles/io.t
@@ -13,7 +13,7 @@ I/O tests
=end pod
-plan *;
+plan 0;
#?pugs emit if $*OS eq "browser" {
#?pugs emit skip_rest "Programs running in browsers don't have access to regular IO.";
View
2 S32-num/abs.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 60;
# L<S32::Numeric/Num/"=item abs">
View
2 S32-str/split-simple2.t
@@ -2,7 +2,7 @@ use v6;
use Test;
# L<S32::Str/Str/"=item split">
-plan *;
+plan 41;
=begin description

0 comments on commit c25c3aa

Please sign in to comment.