Changeset 22496 for t/spec/S03-operators/assign.t

Timestamp:

10/03/08 10:02:56 (3 months ago)

Author:

moritz

Message:

[t/spec] basic tests for infix:<,=>, literal++ for bringing it up

Files:

• t/spec/S03-operators/assign.t (modified) (2 diffs)

t/spec/S03-operators/assign.t

@@ -7 +7 @@
 # L<S03/Changes to Perl 5 operators/list assignment operator now parses on the right>
 
-plan 304;
+plan 306;
 
 
@@ -1031 +1031 @@
 }
 
+#?rakudo skip ',='
+#?DOES 2
+{
+    my @a = 1, 2;
+    is  (@a ,= 3, 4).join('|'), '1|2|3|4', ',= on lists works the same as push (return value)'
+    is  @a.join('|'), '1|2|3|4', ',= on lists works the same as push (effect on array)'
+
+}