From f699714a1623fbb0d95cf16245ade16579ea1a8f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 28 Aug 2011 22:20:39 -0700
Subject: [PATCH] cocoa: clean up tests

---
 basis/cocoa/cocoa-tests.factor | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/basis/cocoa/cocoa-tests.factor b/basis/cocoa/cocoa-tests.factor
index fee8c60c21..a2a0b533c3 100644
--- a/basis/cocoa/cocoa-tests.factor
+++ b/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