add a stub test file for testing subclasses in NumMatrix2D. Can't use…

… Test::More here for some reason, so brewing my own

t/pir-subclass/nummatrix2d.t

@@ -0,0 +1,39 @@
+#!parrot
+
+
+.HLL 'NumMatrix2D_SUBCLASS_TEST'
+
+.sub test
+    $P0 = get_class 'Float'
+    $P1 = subclass $P0, 'TestFloat'
+    $P2 = getinterp
+    $P2.'hll_map'($P0, $P1)
+
+    $P3 = box 0
+    set_hll_global ['Test'], '_count', $P3
+
+    say "1..1"
+    test_get_pmc_keyed()
+.end
+
+.sub is_TestFloat
+    .param pmc arg
+
+    $S0 = typeof arg
+    if $S0 == 'TestFloat' goto are_equal
+    print "not "
+  are_equal:
+    print "ok "
+    $P0 = get_hll_global ['Test'], '_count'
+    inc $P0
+    say $P0
+.end
+
+.sub test_get_pmc_keyed
+    $P0 = new ['NumMatrix2D']
+    $P0.'initialize_from_args'(2, 2, 1, 2, 3, 4)
+    $P1 = $P0[0;0]
+    is_TestFloat($P1)
+.end
+
+