basis/models/mapping/mapping-tests.factor

   1 USING: arrays generic kernel math models namespaces sequences assocs\r
   2 tools.test models.mapping accessors ;\r
   3 IN: models.mapping.tests\r
   4 \r
   5 ! Test mapping\r
   6 [ ] [\r
   7     [\r
   8         1 <model> "one" set\r
   9         2 <model> "two" set\r
  10     ] H{ } make-assoc\r
  11     <mapping> "m" set\r
  12 ] unit-test\r
  13 \r
  14 [ ] [ "m" get activate-model ] unit-test\r
  15 \r
  16 [ H{ { "one" 1 } { "two" 2 } } ] [\r
  17     "m" get value>>\r
  18 ] unit-test\r
  19 \r
  20 [ ] [\r
  21     H{ { "one" 3 } { "two" 4 } } \r
  22     "m" get set-model\r
  23 ] unit-test\r
  24 \r
  25 [ H{ { "one" 3 } { "two" 4 } } ] [\r
  26     "m" get value>>\r
  27 ] unit-test\r
  28 \r
  29 [ H{ { "one" 5 } { "two" 4 } } ] [\r
  30     5 "one" "m" get assoc>> at set-model\r
  31     "m" get value>>\r
  32 ] unit-test\r
  33 \r
  34 [ ] [ "m" get deactivate-model ] unit-test\r