Unfudge state $x++ related tests.

jnthn · jnthn · commit a23f42d1ce99 · 2015-03-28T19:22:09.000+01:00
TimToady++ did the fixes. This includes unfuding the tests covering
RT #115614.
diff --git a/S04-declarations/state.t b/S04-declarations/state.t
@@ -215,8 +215,6 @@ plan 41;
     is $seensize, 10, "[list] assignment state in fib memoizes";
 }
 
-#?rakudo skip 'parse error'
-#?DOES 4
 {
     # now we're just being plain evil:
     subset A of Int where { $_ < state $x++ };
@@ -238,12 +236,10 @@ sub bughunt1 { (state $svar) }    #OK not used
 }
 
 # RT #115614
-#?rakudo skip 'RT #115614'
 {
     lives_ok { state $i++ }, 'can parse "state $i++"';
 }
 
-#?rakudo skip 'parse error'
 #?DOES 1
 {
     # http://irclog.perlgeek.de/perl6/2010-04-27#i_2269848

Original file line number	Diff line number	Diff line change
`@@ -215,8 +215,6 @@ plan 41;`
`215`	`215`	`is $seensize, 10, "[list] assignment state in fib memoizes";`
`216`	`216`	`}`
`217`	`217`
`218`		`-#?rakudo skip 'parse error'`
`219`		`-#?DOES 4`
`220`	`218`	`{`
`221`	`219`	`# now we're just being plain evil:`
`222`	`220`	`subset A of Int where { $_ < state $x++ };`
`@@ -238,12 +236,10 @@ sub bughunt1 { (state $svar) } #OK not used`
`238`	`236`	`}`
`239`	`237`
`240`	`238`	`# RT #115614`
`241`		`-#?rakudo skip 'RT #115614'`
`242`	`239`	`{`
`243`	`240`	`lives_ok { state $i++ }, 'can parse "state $i++"';`
`244`	`241`	`}`
`245`	`242`
`246`		`-#?rakudo skip 'parse error'`
`247`	`243`	`#?DOES 1`
`248`	`244`	`{`
`249`	`245`	`# http://irclog.perlgeek.de/perl6/2010-04-27#i_2269848`