basis/models/models-tests.factor

   1 IN: models.tests
   2 USING: arrays generic kernel math models models.compose
   3 namespaces sequences assocs
   4 tools.test ;
   5
   6 TUPLE: model-tester hit? ;
   7
   8 : <model-tester> model-tester new ;
   9
  10 M: model-tester model-changed nip t swap set-model-tester-hit? ;
  11
  12 [ T{ model-tester f t } ]
  13 [
  14     T{ model-tester f f } 3 <model> 2dup add-connection
  15     5 swap set-model
  16 ] unit-test
  17
  18 3 <model> "model-a" set
  19 4 <model> "model-b" set
  20 "model-a" get "model-b" get 2array <compose> "model-c" set
  21
  22 "model-c" get activate-model
  23 [ { 3 4 } ] [ "model-c" get model-value  ] unit-test
  24 "model-c" get deactivate-model
  25
  26 T{ model-tester f f } "tester" set
  27
  28 [ T{ model-tester f t } { 6 4 } ]
  29 [
  30     "tester" get "model-c" get add-connection
  31     6 "model-a" get set-model
  32     "tester" get
  33     "model-c" get model-value
  34 ] unit-test