1 USING: namespaces ui.tools.browser.history sequences tools.test
3 IN: ui.tools.browser.history.tests
7 M: dummy history-value obj>> ;
8 M: dummy set-history-value obj<< ;
10 dummy new <history> "history" set
12 "history" get add-history
14 { t } [ "history" get back>> empty? ] unit-test
15 { t } [ "history" get forward>> empty? ] unit-test
17 "history" get add-history
18 3 "history" get owner>> set-history-value
20 { t } [ "history" get back>> empty? ] unit-test
21 { t } [ "history" get forward>> empty? ] unit-test
23 "history" get add-history
24 4 "history" get owner>> set-history-value
26 { f } [ "history" get back>> empty? ] unit-test
27 { t } [ "history" get forward>> empty? ] unit-test
31 { 3 } [ "history" get owner>> history-value ] unit-test
33 { t } [ "history" get back>> empty? ] unit-test
34 { f } [ "history" get forward>> empty? ] unit-test
36 "history" get go-forward
38 { 4 } [ "history" get owner>> history-value ] unit-test
40 { f } [ "history" get back>> empty? ] unit-test
41 { t } [ "history" get forward>> empty? ] unit-test