! 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
] unit-test
! Make sure prettyprint doesn't limit output.
-
{ t } [
1000 random-string eval-result set-global
[ send-retort ] with-string-writer length 1000 >
"(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