Permalink
Browse files

[t/spec] Move state-rt67058.t into state.t

git-svn-id: http://svn.pugscode.org/pugs@27323 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
kyle
kyle committed Jun 30, 2009
1 parent 4d0f522 commit a261d6b7c0d92fdbadced1474ff989b7eafcbdb1
Showing with 8 additions and 23 deletions.
  1. +0 −23 S04-declarations/state-rt67058.t
  2. +8 −0 S04-declarations/state.t
@@ -1,23 +0,0 @@
-use v6;
-
-use Test;
-
-plan 1;
-
-sub bughunt1 { (state $svar) }
-{
- sub bughunt2 { state $x //= 17; $x++ }
- #?rakudo todo 'b0rk'
- lives_ok { bughunt2() },
- 'a state variable in parens lives with a state variable with //= init';
-}
-
-#
-# I've tried removing pretty much every part of this test case
-# and it's all necessary.
-#
-# * state $svar in parens in bughunt1.
-# * braces around bughunt2 definition.
-# * Assignment and modification of $x
-# * call to bughunt2
-#
View
@@ -270,4 +270,12 @@ plan 36;
lives_ok { $y = 3 }, 'the state variable in subset types works (3)';
}
+# Test for RT #67058
+sub bughunt1 { (state $svar) }
+{
+ sub bughunt2 { state $x //= 17; $x++ }
+ lives_ok { bughunt2() },
+ 'a state variable in parens lives with a state variable with //= init';
+}
+
# vim: ft=perl6

0 comments on commit a261d6b

Please sign in to comment.