From 748bad3db2734ca415ce594492c3ecf912990380 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Mon, 15 Aug 2022 19:56:31 +0100
Subject: [PATCH] Add guile test for %newobject

---
 Examples/test-suite/guile/newobject1_runme.scm |  3 +++
 Examples/test-suite/schemerunme/newobject1.scm | 16 ++++++++++++++++
 2 files changed, 19 insertions(+)
 create mode 100644 Examples/test-suite/guile/newobject1_runme.scm
 create mode 100644 Examples/test-suite/schemerunme/newobject1.scm

diff --git a/Examples/test-suite/guile/newobject1_runme.scm b/Examples/test-suite/guile/newobject1_runme.scm
new file mode 100644
index 000000000..21f6d8618
--- /dev/null
+++ b/Examples/test-suite/guile/newobject1_runme.scm
@@ -0,0 +1,3 @@
+(dynamic-call "scm_init_newobject1_module" (dynamic-link "./libnewobject1"))
+(load "../schemerunme/newobject1.scm")
+
diff --git a/Examples/test-suite/schemerunme/newobject1.scm b/Examples/test-suite/schemerunme/newobject1.scm
new file mode 100644
index 000000000..fa0ace6de
--- /dev/null
+++ b/Examples/test-suite/schemerunme/newobject1.scm
@@ -0,0 +1,16 @@
+(define-macro (check test)
+  `(if (not ,test) (error "Error in test" ',test)))
+
+(define foo1 (Foo-makeFoo))
+(check (= (Foo-fooCount) 1))
+
+(define foo2 (Foo-makeMore foo1))
+(check (= (Foo-fooCount) 2))
+
+(delete-Foo foo1)
+(check (= (Foo-fooCount) 1))
+
+(delete-Foo foo2)
+(check (= (Foo-fooCount) 0))
+
+(exit 0)