1 files changed, 12 insertions, 0 deletions
diff --git a/Examples/test-suite/schemerunme/overload_extend.scm b/Examples/test-suite/schemerunme/overload_extend.scm
new file mode 100644
index 0000000..0b03b28
--- /dev/null
+++ b/Examples/test-suite/schemerunme/overload_extend.scm
@@ -0,0 +1,12 @@
+(define f (new-Foo))
+
+(if (not (= (Foo-test f 3) 1))
+    (error "test integer bad"))
+
+(if (not (= (Foo-test f "hello") 2))
+    (error "test string bad"))
+
+(if (not (= (Foo-test f 3.5 2.5) 6.0))
+    (error "test reals bad"))
+
+(exit 0)