Test once does not containerize its values

zoffixznet · zoffixznet · commit 37548511d8d4 · 2018-04-06T22:16:07.000-04:00
Closes rakudo/rakudo#1610 R#1610
diff --git a/S04-statements/once.t b/S04-statements/once.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 23;
+plan 24;
 
 # L<S04/"Phasers"/once "runs separately for each clone">
 {
@@ -113,4 +113,8 @@ for <first second> {
     is $i, 42, 'once block in statement modifier evaluates to correct result';
 }
 
+# https://github.com/rakudo/rakudo/issues/1610
+throws-like ｢my \z := once 42; z = 100｣, X::Assignment::RO,
+    '`once` does not containerize its values';
+
 # vim: ft=perl6

Original file line number	Diff line number	Diff line change
`@@ -2,7 +2,7 @@ use v6;`
`2`	`2`
`3`	`3`	`use Test;`
`4`	`4`
`5`		`-plan 23;`
	`5`	`+plan 24;`
`6`	`6`
`7`	`7`	`# L<S04/"Phasers"/once "runs separately for each clone">`
`8`	`8`	`{`
`@@ -113,4 +113,8 @@ for <first second> {`
`113`	`113`	`is $i, 42, 'once block in statement modifier evaluates to correct result';`
`114`	`114`	`}`
`115`	`115`
	`116`	`+# https://github.com/rakudo/rakudo/issues/1610`
	`117`	`+throws-like ｢my \z := once 42; z = 100｣, X::Assignment::RO,`
	`118`	+ '`once` does not containerize its values';
	`119`	`+`
`116`	`120`	`# vim: ft=perl6`