diff --git a/extra/fuel/eval/eval-tests.factor b/extra/fuel/eval/eval-tests.factor index 8c8da511d1..c6d149aee6 100644 --- a/extra/fuel/eval/eval-tests.factor +++ b/extra/fuel/eval/eval-tests.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2009 Jose Antonio Ortega Ruiz. ! See http://factorcode.org/license.txt for BSD license. USING: continuations fuel fuel.eval io.streams.string kernel math -namespaces random.data sequences strings tools.test ; +namespaces random.data sequences strings tools.test vocabs.parser ; IN: fuel.eval.tests ! pop-restarts @@ -20,7 +20,6 @@ IN: fuel.eval.tests ] unit-test ! Make sure prettyprint doesn't limit output. - { t } [ 1000 random-string eval-result set-global [ send-retort ] with-string-writer length 1000 > @@ -31,7 +30,10 @@ IN: fuel.eval.tests "(nil \"IN: kernel PRIMITIVE: dup ( x -- x x )\" \"\")\n<~FUEL~>\n" } [ [ - V{ "\"dup\"" "fuel-word-synopsis" } "scratchpad" V{ } fuel-eval-in-context - ] with-string-writer - f eval-result set-global + [ + V{ "\"dup\"" "fuel-word-synopsis" } "scratchpad" + V{ "fuel" "kernel" "syntax" } eval-in-context + ] with-string-writer + f eval-result set-global + ] with-manifest ] unit-test