From cd3adb671ce6b170aa23c1b1874ecd07be1b3f69 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Sun, 8 Jan 2017 13:41:43 +0100 Subject: [PATCH] fuel.eval.tests: fixing the test by wrapping it in a manifest --- extra/fuel/eval/eval-tests.factor | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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