more vtable tests

Author: moritz

t/nqp/52-vtable.t

@@ -5,7 +5,7 @@ class ABC {
     method () is parrot_vtable('get_string') { 'abc' }
 }
 
-plan(4);
+plan(10);
 
 my $abc := ABC.new;
 ok($abc == 123,   "get_number vtable works");
@@ -18,3 +18,37 @@ class DEF is ABC {
 my $def := DEF.new;
 ok($def == 123,   "get_number vtable from parent works");
 ok($def eq 'def', "get_string vtable as override works");
+
+class Hashy {
+    has %!h;
+    method init() { %!h := pir::new('Hash') }
+    method ($k)     is parrot_vtable('get_pmc_keyed_str') { %!h{$k}}
+    method ($k, $v) is parrot_vtable('set_pmc_keyed_str') { %!h{$k} := $v }
+    method ($k)     is parrot_vtable('exists_keyed_str')  { pir::exists(%!h, $k)      }
+    method ($k)     is parrot_vtable('delete_keyed_str')  { pir::delete(%!h, $k)      }
+}
+
+my $h := Hashy.new; $h.init();
+
+$h<foo> := 'bar';
+ok($h<foo> eq 'bar', '{set,get}_pmc_keyed_str');
+ok(pir::exists($h, 'foo'), 'exists');
+pir::delete($h, 'foo');
+ok(!pir::exists($h, 'foo'), 'delete');
+
+class Arrayy {
+    has @!a;
+    method init() { @!a := pir::new('ResizablePMCArray') }
+    method ($k)     is parrot_vtable('get_pmc_keyed_int') { @!a{$k}}
+    method ($k, $v) is parrot_vtable('set_pmc_keyed_int') { @!a{$k} := $v }
+    method ($k)     is parrot_vtable('exists_keyed_int')  { pir::exists(@!a, $k)      }
+    method ($k)     is parrot_vtable('delete_keyed_int')  { pir::delete(@!a, $k)      }
+}
+
+my $a := Arrayy.new; $a.init();
+
+$a[0] := 'bar';
+ok($a[0] eq 'bar', '{set,get}_pmc_keyed_int');
+ok(pir::exists($a, 0), 'exists');
+pir::delete($a, 0);
+ok(!pir::exists($a, 0), 'delete');