basis/models/mapping/mapping-tests.factor

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