basis/cocoa/cocoa-tests.factor

   1 IN: cocoa.tests
   2 USING: cocoa cocoa.messages cocoa.subclassing cocoa.types
   3 compiler kernel namespaces cocoa.classes tools.test memory
   4 compiler.units ;
   5
   6 CLASS: {
   7     { +superclass+ "NSObject" }
   8     { +name+ "Foo" }
   9 } {
  10     "foo:"
  11     "void"
  12     { "id" "SEL" "NSRect" }
  13     [ gc "x" set 2drop ]
  14 } ;
  15
  16 : test-foo
  17     Foo -> alloc -> init
  18     dup 1.0 2.0 101.0 102.0 <NSRect> -> foo:
  19     -> release ;
  20
  21 test-foo
  22
  23 [ 1 ] [ "x" get NSRect-x ] unit-test
  24 [ 2 ] [ "x" get NSRect-y ] unit-test
  25 [ 101 ] [ "x" get NSRect-w ] unit-test
  26 [ 102 ] [ "x" get NSRect-h ] unit-test
  27
  28 CLASS: {
  29     { +superclass+ "NSObject" }
  30     { +name+ "Bar" }
  31 } {
  32     "bar"
  33     "NSRect"
  34     { "id" "SEL" }
  35     [ 2drop test-foo "x" get ]
  36 } ;
  37
  38 Bar [
  39     -> alloc -> init
  40     dup -> bar "x" set
  41     -> release
  42 ] compile-call
  43
  44 [ 1 ] [ "x" get NSRect-x ] unit-test
  45 [ 2 ] [ "x" get NSRect-y ] unit-test
  46 [ 101 ] [ "x" get NSRect-w ] unit-test
  47 [ 102 ] [ "x" get NSRect-h ] unit-test