Changeset 21212 for t/spec/S04-statements/for.t

Timestamp:

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

Author:

moritz

Message:

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

Files:

• t/spec/S04-statements/for.t (modified) (2 diffs)

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');