test contextualization of %.foo style calls (RT #112236)

S12-methods/accessors.t

@@ -0,0 +1,42 @@
+use v6;
+use Test;
+
+plan 5;
+
+class A {
+    has @.a;
+    has $.b;
+    method test-list-a {
+        my $x = 0;
+        $x++ for @.a;
+        $x;
+    }
+    method test-scalar-a {
+        my $x = 0;
+        $x++ for $.a;
+        $x;
+    }
+    method test-list-b {
+        my $x = 0;
+        $x++ for @.b;
+        $x;
+    }
+    method test-scalar-b {
+        my $x = 0;
+        $x++ for $.b;
+        $x;
+    }
+    method test-hash-a {
+        my $x = 0;
+        $x++ for %.a;
+        $x;
+    }
+
+}
+
+my $a = A.new(a => (1, 2, 3, 4), b => [3, 4, 5, 6]);
+is $a.test-list-a,   4, '@.a contextualizes as (flat) list (1)';
+is $a.test-scalar-a, 1, '$.a contextualizes as item (1)';
+is $a.test-list-b,   4, '@.a contextualizes as (flat) list (2)';
+is $a.test-scalar-b, 1, '$.a contextualizes as item (2)';
+is $a.test-hash-a,   2, '%.a contextualizes as hash';