cocoa: clean up tests

2011-08-28 22:20:39 -07:00 · 2011-08-28 22:20:39 -07:00 · f699714a16
parent 4aaab7af34
commit f699714a16
1 changed files with 8 additions and 6 deletions
--- 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