cocoa: clean up tests

db4
Slava Pestov 2011-08-28 22:20:39 -07:00
parent 4aaab7af34
commit f699714a16
1 changed files with 8 additions and 6 deletions

View File

@ -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