Changeset 7221

Timestamp:

10/02/05 14:49:45 (3 years ago)

Author:

nothingmuch

Message:

r8773@syeeda: nothingmuch | 2005-10-02 14:45:15 +0200
maskak++ 's reverse bug

Files:

• t/builtins/lists/reverse.t (modified) (2 diffs)

t/builtins/lists/reverse.t

@@ -10 +10 @@
 =cut
 
-plan 33;
+plan 35;
 
 my @a = reverse(1, 2, 3, 4);
@@ -32 +32 @@
 
 is(@a[1], "foo", 'the list was reversed properly');
+
+class Foo {
+        has @.n;
+        method foo () { (1, 2, 3) }
+        method bar () {
+                return @.n = reverse $?SELF.foo;
+        }
+}
+
+my @n = Foo.new.bar;
+
+is(+@n, 3, "list context reverse in masak's bug");
+is(~@n, "3 2 1", "elements seem reversed");
 
 {