From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 5 Jul 2006 14:10:18 +0000 (+0000)
Subject: Add a TODO test for list assignment to a list of state variables.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a53dbfbbdde69373524fb559de5b51e406df6721;p=p5sagit%2Fp5-mst-13.2.git

Add a TODO test for list assignment to a list of state variables.
Not sure yet how to encode in the optree the information that
state($x, $y) and (state $x, state $y) must be treated differently.

p4raw-id: //depot/perl@28484
---

diff --git a/t/op/state.t b/t/op/state.t
index ebe8d9b..6d09813 100644
--- a/t/op/state.t
+++ b/t/op/state.t
@@ -10,7 +10,7 @@ BEGIN {
 use strict;
 use feature "state";
 
-plan tests => 30;
+plan tests => 32;
 
 ok( ! defined state $uninit, q(state vars are undef by default) );
 
@@ -137,3 +137,21 @@ is( $xhval, 0, 'uninitialized state hash' );
 
 $xhval = stateful_hash();
 is( $xhval, 1, 'uninitialized state hash after one iteration' );
+
+# state declaration with a list
+
+sub statelist {
+    # note that this should be a state assignment, while (state $lager, state $stout) shouldn't
+    state($lager, $stout) = (11, 22);
+    $lager++;
+    $stout++;
+    "$lager/$stout";
+}
+
+my $ls = statelist();
+is($ls, "12/23", 'list assignment to state scalars');
+$ls = statelist();
+{
+    local our $TODO = 'make aassign handle state vars';
+    is($ls, "13/24", 'list assignment to state scalars');
+}