Add guile test for %newobject

Examples/test-suite/guile/newobject1_runme.scm

@@ -0,0 +1,3 @@
+(dynamic-call "scm_init_newobject1_module" (dynamic-link "./libnewobject1"))
+(load "../schemerunme/newobject1.scm")
+

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)