Changeset 21212

Timestamp:

07/04/08 12:58:29 (3 months ago)

Author:

moritz

Message:

[spec] added a few semicolons in for.t; fixed plan in uc.t. bacek++

Location:

t/spec

Files:

• S04-statements/for.t (modified) (2 diffs)
• S29-str/uc.t (modified) (1 diff)

t/spec/S04-statements/for.t

@@ -58 +58 @@
 
 # ... with referential sub
-#?rakudo skip 'implicit invocant'
-{
+#?rakudo skip 'parse error'
+{
+    # XXX this test is wrong. Since some_sub_1 isn't a method in class
+    # Int, the method call will never work.
+    # There are other wrong occurences of this below
+    # what to do? Maybe something like this:
+    # class Int is also { method some_meth_1 { $d = $d ~ self } }
     my $d;
-    sub some_sub_1 ($arg) { $d = $d ~ $arg; }
+    sub some_sub_1 ($arg) { $d = $d ~ $arg; };
     for 0 .. 5 { .some_sub_1 };
     is($d, '012345', 'for 0 .. 5 { .some_sub } works');
@@ -84 +89 @@
 {
     my $h;
-    sub some_sub_2 ($arg) { $h = $h ~ $arg; }
+    sub some_sub_2 ($arg) { $h = $h ~ $arg; };
     for (0 .. 5) { .some_sub_2 };
     is($h, '012345', 'for (0 .. 5) { .some_sub } works');

t/spec/S29-str/uc.t

@@ -3 +3 @@
 use Test;
 
-plan 10;
+plan 11;
 
 # L<S29/"Str"/=item uc>