basis/models/arrow/arrow-tests.factor

   1 USING: arrays generic kernel math models namespaces sequences assocs
   2 tools.test models.arrow accessors ;
   3 IN: models.arrow.tests
   4
   5 3 <model> "x" set
   6 "x" get [ 2 * ] <arrow> dup "z" set
   7 [ 1 + ] <arrow> "y" set
   8 { } [ "y" get activate-model ] unit-test
   9 { t } [ "z" get "x" get connections>> member-eq? ] unit-test
  10 { 7 } [ "y" get value>> ] unit-test
  11 { } [ 4 "x" get set-model ] unit-test
  12 { 9 } [ "y" get value>> ] unit-test
  13 { } [ "y" get deactivate-model ] unit-test
  14 { f } [ "z" get "x" get connections>> member-eq? ] unit-test
  15
  16 3 <model> "x" set
  17 "x" get [ sq ] <arrow> "y" set
  18
  19 4 "x" get set-model
  20
  21 "y" get activate-model
  22 { 16 } [ "y" get value>> ] unit-test
  23 "y" get deactivate-model