fuel.eval.tests: fixing the test by wrapping it in a manifest

char-rename
Björn Lindqvist 2017-01-08 13:41:43 +01:00
parent c11c59876f
commit cd3adb671c
1 changed files with 7 additions and 5 deletions

View File

@ -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