Skip to content
Browse files

replace plan *; with number of tests S03

git-svn-id: http://svn.pugscode.org/pugs@32082 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 76fe4f1 commit 643bc98f3c92d8e760073ccef1fbf9213a11814f mberends committed
View
2 S03-feeds/basic.t
@@ -13,7 +13,7 @@ Tests for the feed operators
=end pod
-plan *;
+plan 19;
#?pugs skip '<== dies with cast error'
{
View
2 S03-junctions/associative.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan *;
+plan 10;
# Checking Junctions' Associativeness
# TODO: need smartlink
View
2 S03-junctions/misc.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan *;
+plan 103;
=begin pod
View
2 S03-metaops/hyper.t
@@ -8,7 +8,7 @@ use Test;
=end pod
-plan *;
+plan 265;
# L<S03/Hyper operators>
# binary infix
View
2 S03-metaops/not.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 36;
=begin pod
View
2 S03-metaops/reduce.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 92;
=begin pod
View
2 S03-metaops/reverse.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 33;
=begin pod
View
2 S03-metaops/zip.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 13;
ok eval('<a b> Z <c d>'), 'cross non-meta operator parses';
View
2 S03-operators/arith.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 135;
my $five = abs(-5);
View
2 S03-operators/comparison-simple.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 25;
# N.B.: relational ops are in relational.t
View
2 S03-operators/nesting.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 26;
# L<S03/Meta operators/Nesting of metaoperators/Any infix function may be referred to as a noun either by the normal long form or a short form>
View
4 S03-operators/range-int.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
-
+plan 480;
+
is ~(-17..-19), '', '-17..-19';
is ~(-17..^-19), '', '-17..^-19';
is ~(-17^..-19), '', '-17^..-19';
View
2 S03-operators/series-arity0.t
@@ -3,7 +3,7 @@ use Test;
# L<S03/List infix precedence/"can be 0-ary as well">
-plan *;
+plan 15;
# Test with Whatever limit
{
View
2 S03-operators/series-arity2ormore.t
@@ -3,7 +3,7 @@ use Test;
# L<S03/List infix precedence/"the series operator">
-plan *;
+plan 19;
# some tests without regard to ending
View
2 S03-operators/series-nonnumeric.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan *;
+plan 35;
# L<S03/List infix precedence/'C<.succ> is assumed'>
View
2 S03-operators/series.t
@@ -3,7 +3,7 @@ use Test;
# L<S03/List infix precedence/"the series operator">
-plan *;
+plan 114;
# single-term series
View
2 S03-operators/short-circuit.t
@@ -14,7 +14,7 @@ it is closely related to || and && and //.
# test cases by Andrew Savige
-plan *;
+plan 37;
{
my $x = 1;
View
2 S03-operators/ternary.t
@@ -4,7 +4,7 @@ use Test;
#Ternary operator ?? !!
-plan *;
+plan 17;
#L<S03/Changes to Perl 5 operators/"The ? : conditional operator becomes ?? !!">
my $str1 = "aaa";
View
2 S03-operators/value_equivalence.t
@@ -14,7 +14,7 @@ false, and C<[1,2] eqv [1,2]> returns true.
# L<S03/"Chaining binary precedence" /Value identity>
-plan *;
+plan 74;
# === on values
{
View
2 S03-smartmatch/any-any.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 8;
#L<S03/Smart matching/Any Any scalars are identical>
{
View
2 S03-smartmatch/any-array.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 6;
#L<S03/Smart matching/Any Array lists are comparable>
{
View
2 S03-smartmatch/any-bool.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 12;
#L<S03/Smart matching/Any Bool simple truth>
#?rakudo skip 'RT 77080'
View
2 S03-smartmatch/any-callable.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 6;
#L<S03/"Smart matching"/Any Callable:($) item sub truth>
{
View
2 S03-smartmatch/any-complex.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 12;
{
ok (1 + 2i) ~~ (1 + 2i), 'Complex ~~ Complex (+)';
View
2 S03-smartmatch/any-hash-pair.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 7;
#L<S03/Smart matching/Hash Pair test hash mapping>
{
View
2 S03-smartmatch/any-num.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 18;
#L<S03/Smart matching/Any Num numeric equality>
{
View
2 S03-smartmatch/any-str.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 5;
#L<S03/Smart matching/Any Str string equality>
{
View
2 S03-smartmatch/array-array.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 36;
#L<S03/Smart matching/arrays are comparable>
{
View
2 S03-smartmatch/array-hash.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 6;
#L<S03/"Smart matching"/Array Hash hash slice existence>
{
View
2 S03-smartmatch/capture-signature.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan *;
+plan 4;
sub t1(%h) {
given %h {
View
2 S03-smartmatch/disorganized.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 42;
=begin pod
View
2 S03-smartmatch/hash-hash.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 4;
sub eval_elsewhere($code){ eval($code) }
View
2 S03-smartmatch/regex-hash.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 4;
#L<S03/"Smart matching"/Regex Hash hash key grep>
{
View
2 S03-smartmatch/scalar-hash.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan *;
+plan 3;
#L<S03/"Smart matching"/Scalar Hash hash entry existence>
{

0 comments on commit 643bc98

Please sign in to comment.
Something went wrong with that request. Please try again.