From 1071a3c5644534127ec33551501e29b6d5ede673 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 6 Apr 2009 03:03:46 -0500 Subject: [PATCH] Fix ui.tools.browser.history tests --- .../tools/browser/history/history-tests.factor | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/basis/ui/tools/browser/history/history-tests.factor b/basis/ui/tools/browser/history/history-tests.factor index 20b16f450a..454e4700a0 100644 --- a/basis/ui/tools/browser/history/history-tests.factor +++ b/basis/ui/tools/browser/history/history-tests.factor @@ -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 -f "history" set +TUPLE: dummy obj ; + +M: dummy history-value obj>> ; +M: dummy set-history-value (>>obj) ; + +dummy new "history" set "history" get add-history @@ -9,27 +15,27 @@ f "history" set [ t ] [ "history" get forward>> empty? ] unit-test "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 forward>> empty? ] unit-test "history" get add-history -"history" get 4 >>value drop +4 "history" get owner>> set-history-value [ f ] [ "history" get back>> empty? ] unit-test [ t ] [ "history" get forward>> empty? ] unit-test "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 [ f ] [ "history" get forward>> empty? ] unit-test "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 [ t ] [ "history" get forward>> empty? ] unit-test