steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix ui.tools.browser.history tests

db4
Slava Pestov 2009-04-06 03:03:46 -05:00
parent 99b8400e56
commit 1071a3c564
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/ui/tools/browser/history/history-tests.factor
View File

@ -1,7 +1,13 @@
USING: namespaces ui.tools.browser.history sequences tools.test ; USING: namespaces ui.tools.browser.history sequences tools.test
accessors kernel ;
IN: ui.tools.browser.history.tests IN: ui.tools.browser.history.tests
f <history> "history" set TUPLE: dummy obj ;
M: dummy history-value obj>> ;
M: dummy set-history-value (>>obj) ;
dummy new <history> "history" set
"history" get add-history "history" get add-history
@ -9,27 +15,27 @@ f <history> "history" set
[ t ] [ "history" get forward>> empty? ] unit-test [ t ] [ "history" get forward>> empty? ] unit-test
"history" get add-history "history" get add-history
"history" get 3 >>value drop 3 "history" get owner>> set-history-value
[ t ] [ "history" get back>> empty? ] unit-test [ t ] [ "history" get back>> empty? ] unit-test
[ t ] [ "history" get forward>> empty? ] unit-test [ t ] [ "history" get forward>> empty? ] unit-test
"history" get add-history "history" get add-history
"history" get 4 >>value drop 4 "history" get owner>> set-history-value
[ f ] [ "history" get back>> empty? ] unit-test [ f ] [ "history" get back>> empty? ] unit-test
[ t ] [ "history" get forward>> empty? ] unit-test [ t ] [ "history" get forward>> empty? ] unit-test
"history" get go-back "history" get go-back
[ 3 ] [ "history" get value>> ] unit-test [ 3 ] [ "history" get owner>> history-value ] unit-test
[ t ] [ "history" get back>> empty? ] unit-test [ t ] [ "history" get back>> empty? ] unit-test
[ f ] [ "history" get forward>> empty? ] unit-test [ f ] [ "history" get forward>> empty? ] unit-test
"history" get go-forward "history" get go-forward
[ 4 ] [ "history" get value>> ] unit-test [ 4 ] [ "history" get owner>> history-value ] unit-test
[ f ] [ "history" get back>> empty? ] unit-test [ f ] [ "history" get back>> empty? ] unit-test
[ t ] [ "history" get forward>> empty? ] unit-test [ t ] [ "history" get forward>> empty? ] unit-test