Add Racket test for %newobject

Uses common mzscheme test, but corrections for Racket error:

if: bad syntax (must have an "else" expression)

Examples/test-suite/mzscheme/newobject1_runme.scm

@@ -0,0 +1,5 @@
+(load-extension "newobject1.so")
+
+(require (lib "defmacro.ss"))
+
+(load "../schemerunme/newobject1.scm")

Examples/test-suite/schemerunme/newobject1.scm

@@ -1,5 +1,5 @@
 (define-macro (check test)
-  `(if (not ,test) (error "Error in test" ',test)))
+  `(unless ,test (error "Error in test" ',test)))
 
 (define foo1 (Foo-makeFoo))
 (check (= (Foo-fooCount) 1))