1 files changed, 14 insertions, 0 deletions
diff --git a/Examples/test-suite/schemerunme/inherit_missing.scm b/Examples/test-suite/schemerunme/inherit_missing.scm
new file mode 100644
index 0000000..1b9bd0e
--- /dev/null
+++ b/Examples/test-suite/schemerunme/inherit_missing.scm
@@ -0,0 +1,14 @@
+(define a (new-Foo))
+(define b (new-Bar))
+(define c (new-Spam))
+
+(if (not (string=? (do-blah a) "Foo::blah"))
+    (error "Bad return"))
+
+(if (not (string=? (do-blah b) "Bar::blah"))
+    (error "Bad return"))
+
+(if (not (string=? (do-blah c) "Spam::blah"))
+    (error "bad return"))
+
+(exit 0)