steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/cocoa/cocoa-tests.factor
View File

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