1 USING: arrays generic kernel math models namespaces sequences assocs
\r
2 tools.test models.history accessors ;
\r
3 IN: models.history.tests
\r
5 f <history> "history" set
\r
7 "history" get add-history
\r
9 [ t ] [ "history" get back>> empty? ] unit-test
\r
10 [ t ] [ "history" get forward>> empty? ] unit-test
\r
12 "history" get add-history
\r
13 3 "history" get set-model
\r
15 [ t ] [ "history" get back>> empty? ] unit-test
\r
16 [ t ] [ "history" get forward>> empty? ] unit-test
\r
18 "history" get add-history
\r
19 4 "history" get set-model
\r
21 [ f ] [ "history" get back>> empty? ] unit-test
\r
22 [ t ] [ "history" get forward>> empty? ] unit-test
\r
24 "history" get go-back
\r
26 [ 3 ] [ "history" get value>> ] unit-test
\r
28 [ t ] [ "history" get back>> empty? ] unit-test
\r
29 [ f ] [ "history" get forward>> empty? ] unit-test
\r
31 "history" get go-forward
\r
33 [ 4 ] [ "history" get value>> ] unit-test
\r
35 [ f ] [ "history" get back>> empty? ] unit-test
\r
36 [ t ] [ "history" get forward>> empty? ] unit-test
\r