1 USING: arrays generic kernel math models namespaces sequences assocs
2 tools.test models.mapping accessors make ;
3 IN: models.mapping.tests
14 { } [ "m" get activate-model ] unit-test
16 { H{ { "one" 1 } { "two" 2 } } } [
21 H{ { "one" 3 } { "two" 4 } }
25 { H{ { "one" 3 } { "two" 4 } } } [
29 { H{ { "one" 5 } { "two" 4 } } } [
30 5 "one" "m" get assoc>> at set-model
34 { } [ "m" get deactivate-model ] unit-test