From 18b5090892e20b5016affc51846340d9e3e52c00 Mon Sep 17 00:00:00 2001 From: Nicholas Seckar Date: Sun, 19 Apr 2009 19:57:35 -0700 Subject: [PATCH] Add tests for auto-USING selection --- extra/fuel/fuel-tests.factor | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 extra/fuel/fuel-tests.factor diff --git a/extra/fuel/fuel-tests.factor b/extra/fuel/fuel-tests.factor new file mode 100644 index 0000000000..a0cab888e8 --- /dev/null +++ b/extra/fuel/fuel-tests.factor @@ -0,0 +1,33 @@ +! Copyright (C) 2009 Nicholas Seckar. +! See http://factorcode.org/license.txt for BSD license. +USING: continuations eval fuel fuel.private namespaces tools.test words ; +IN: fuel.tests + +: fake-continuation ( -- continuation ) + f f f "fake" f ; + +: make-uses-restart ( -- restart ) + "Use the words vocabulary" \ word? + fake-continuation ; + +: make-defer-restart ( -- restart ) + "Defer word in current vocabulary" f + fake-continuation ; + +{ f } [ make-defer-restart is-use-restart ] unit-test +{ t } [ make-uses-restart is-use-restart ] unit-test + +{ "words" } [ make-uses-restart get-restart-vocab ] unit-test + +{ f } [ make-defer-restart is-suggested-restart ] unit-test +{ f } [ make-uses-restart is-suggested-restart ] unit-test +{ f } [ { "io" } :uses-suggestions + [ make-uses-restart is-suggested-restart ] with-variable +] unit-test +{ t } [ { "words" } :uses-suggestions + [ make-uses-restart is-suggested-restart ] with-variable +] unit-test + +{ } [ + { "kernel" } [ "\\ dup drop" eval( -- ) ] fuel-use-suggested-vocabs +] unit-test