test inheritance

pickle.cpp

@@ -526,14 +526,22 @@ object* pvm::get_property(object* obj, uint64_t hash, bool recurse) {
     // Nil has no properties
     if (!obj) return nil;
     if (recurse) {
+        DBG("Inheritance requested get_property() {");
         // Try to find it directly.
         object* val = this->get_property(obj, hash, false);
-        if (val) return val;
+        if (val) {
+            DBG("Own property. }");
+            return val;
+        }
         // Not found, traverse prototypes list.
         for (object* p = car(obj); p; p = cdr(p)) {
             val = this->get_property(car(p), hash, true);
-            if (val) return val;
+            if (val) {
+                DBG("Parent property. }");
+                return val;
+            }
         }
+        DBG("Property not found in inheritance tree. }");
         return nil;
     }
     // Check if it is an object-object (primitives have no own properties)

pickle_test.cpp

@@ -107,6 +107,12 @@ int main() {
     vm.dump(hash0);
     putchar('\n');
     vm.dump(foo);
+    printf("\nCreate child object\n");
+    auto bar = vm.newobject(vm.cons(foo, nil));
+    vm.dump(bar);
+    printf("\nGet property 0 with inheritance and without\n");
+    ASSERT(vm.get_property(bar, 0, false) == nil);
+    ASSERT(vm.get_property(bar, 0, true) != nil);
     SEPARATOR;
     printf("all done -- cleaning up\n");
     // implicit destruction of vm;