1 USING: arrays generic kernel math models namespaces sequences assocs
\r
2 tools.test models.compose accessors ;
\r
3 IN: models.compose.tests
\r
9 "a" get "b" get 2array <compose> "c" set
\r
12 [ ] [ "c" get activate-model ] unit-test
\r
14 [ { 1 2 } ] [ "c" get value>> ] unit-test
\r
16 [ ] [ 3 "b" get set-model ] unit-test
\r
18 [ { 1 3 } ] [ "c" get value>> ] unit-test
\r
20 [ ] [ { 4 5 } "c" get set-model ] unit-test
\r
22 [ { 4 5 } ] [ "c" get value>> ] unit-test
\r
24 [ ] [ "c" get deactivate-model ] unit-test
\r