cocoa: clean up tests

basis/cocoa/cocoa-tests.factor

@@ -16,7 +16,7 @@ CLASS: Foo < NSObject
     dup 1.0 2.0 101.0 102.0 <CGRect> -> foo:
     -> release ;
 
-test-foo
+[ ] [ test-foo ] unit-test
 
 [ 1.0 ] [ "x" get CGRect-x ] unit-test
 [ 2.0 ] [ "x" get CGRect-y ] unit-test
@@ -28,11 +28,13 @@ CLASS: Bar < NSObject
     METHOD: NSRect bar [ test-foo "x" get ]
 ]
 
-Bar [
-    -> alloc -> init
-    dup -> bar "x" set
-    -> release
-] compile-call
+[ ] [
+    Bar [
+        -> alloc -> init
+        dup -> bar "x" set
+        -> release
+    ] compile-call
+] unit-test
 
 [ 1.0 ] [ "x" get CGRect-x ] unit-test
 [ 2.0 ] [ "x" get CGRect-y ] unit-test