Add a test for 'is positional_delegate' and 'is associative_delegate'.

t/nqp/73-delegation.t

@@ -0,0 +1,32 @@
+plan(6);
+
+class Foo {
+    has @!pos_foo;
+    has @!pos_bar is positional_delegate;
+    has @!pos_baz;
+
+    has %!assoc_foo;
+    has %!assoc_bar is associative_delegate;
+    has %!assoc_baz;
+    method get_pos_1() {
+       @!pos_bar[1]; 
+    }
+    method get_assoc_1() {
+       %!assoc_bar<1>; 
+    }
+}
+
+my $foo := Foo.new();
+$foo[0] := 123;
+$foo[1] := 456;
+$foo<1> := 678;
+$foo<foo> := "hi";
+$foo<bar> := "hello";
+$foo<baz> := "world";
+
+ok($foo[0] == 123,"getting and setting element 0");
+ok($foo[1] == 456,"getting and setting element 1");
+ok($foo<1> == 678,"associative access is seperate");
+ok($foo<bar> eq 'hello',"assosiative storage takes strings as keys");
+ok($foo.get_pos_1 == 456,"positional are stored in the attribute");
+ok($foo.get_assoc_1 == 678,"associatives are stored in the attribute");