2008-07-04 18:58:37 -04:00
|
|
|
USING: arrays generic kernel math models namespaces sequences assocs
|
2009-02-26 17:15:10 -05:00
|
|
|
tools.test models.arrow accessors ;
|
|
|
|
|
IN: models.arrow.tests
|
2008-07-04 18:58:37 -04:00
|
|
|
|
|
|
|
|
3 <model> "x" set
|
2009-02-26 17:15:10 -05:00
|
|
|
"x" get [ 2 * ] <arrow> dup "z" set
|
2009-08-13 20:21:44 -04:00
|
|
|
[ 1 + ] <arrow> "y" set
|
2008-07-04 18:58:37 -04:00
|
|
|
[ ] [ "y" get activate-model ] unit-test
|
2009-10-28 16:02:00 -04:00
|
|
|
[ t ] [ "z" get "x" get connections>> member-eq? ] unit-test
|
2008-09-02 02:53:43 -04:00
|
|
|
[ 7 ] [ "y" get value>> ] unit-test
|
2008-07-04 18:58:37 -04:00
|
|
|
[ ] [ 4 "x" get set-model ] unit-test
|
2008-09-02 02:53:43 -04:00
|
|
|
[ 9 ] [ "y" get value>> ] unit-test
|
2008-07-04 18:58:37 -04:00
|
|
|
[ ] [ "y" get deactivate-model ] unit-test
|
2009-10-28 16:02:00 -04:00
|
|
|
[ f ] [ "z" get "x" get connections>> member-eq? ] unit-test
|
2008-07-04 18:58:37 -04:00
|
|
|
|
|
|
|
|
3 <model> "x" set
|
2009-02-26 17:15:10 -05:00
|
|
|
"x" get [ sq ] <arrow> "y" set
|
2008-07-04 18:58:37 -04:00
|
|
|
|
|
|
|
|
4 "x" get set-model
|
|
|
|
|
|
|
|
|
|
"y" get activate-model
|
2008-09-02 02:53:43 -04:00
|
|
|
[ 16 ] [ "y" get value>> ] unit-test
|
2008-07-04 18:58:37 -04:00
|
|
|
"y" get deactivate-model
|
