cocoa: clean up tests
parent
4aaab7af34
commit
f699714a16
basis/cocoa
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue