basis/models/mapping/mapping-tests.factor

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