tests for RT #116521, bare sigils as placeholder variables

S02-names/bare-sigil.t

@@ -0,0 +1,32 @@
+use v6;
+use Test;
+
+plan 10;
+
+# L<S02/Names/"In declarative constructs bare sigils">
+
+lives_ok { my $ }, 'basic bare sigil $';
+lives_ok { my @ }, 'basic bare sigil @';
+#?niecza skip 'bare sigil % generates postcircumfix:<()> exception'
+lives_ok { my % }, 'basic bare sigil %';
+
+is (my $ = "foo"), "foo", 'initialized bare sigil scalar $';
+ok (my @ = 1, 2, 3), 'initialized bare sigil array @';
+ok (my % = baz => "luhrman"), 'initialized bare sigil hash %';
+
+# RT #116521
+# 'state' with anonymous scalars works more like 'my' in Rakudo
+#?niecza skip "++(state \$) yields (3, 3, 3) instead of (1, 2, 3)"
+{
+    sub f { ++state $ ; }
+    is (f, f, f), (1, 2, 3), "anonymous 'state' bare sigil scalar retains state";
+    sub g { ++state $ = 3; }
+    is (g, g, g), (4, 5, 6), "anonymous 'state' bare sigil scalar is initialized once";
+}
+
+{
+    sub d { state $i = 0; (state @).push( $i++ ) }
+    d;
+    is +d(), 2, "anonymous 'state' bare sigil array retains state";
+    is d()[2], 2, "anonymous 'state' bare sigil array can grow";
+}