basis/models/compose/compose-tests.factor

   1 USING: arrays generic kernel math models namespaces sequences assocs\r
   2 tools.test models.compose accessors ;\r
   3 IN: models.compose.tests\r
   4 \r
   5 ! Test compose\r
   6 [ ] [\r
   7     1 <model> "a" set\r
   8     2 <model> "b" set\r
   9     "a" get "b" get 2array <compose> "c" set\r
  10 ] unit-test\r
  11 \r
  12 [ ] [ "c" get activate-model ] unit-test\r
  13 \r
  14 [ { 1 2 } ] [ "c" get value>> ] unit-test\r
  15 \r
  16 [ ] [ 3 "b" get set-model ] unit-test\r
  17 \r
  18 [ { 1 3 } ] [ "c" get value>> ] unit-test\r
  19 \r
  20 [ ] [ { 4 5 } "c" get set-model ] unit-test\r
  21 \r
  22 [ { 4 5 } ] [ "c" get value>> ] unit-test\r
  23 \r
  24 [ ] [ "c" get deactivate-model ] unit-test\r