basis/models/filter/filter-tests.factor

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