fuel.eval.tests: fixing the test by wrapping it in a manifest
parent
c11c59876f
commit
cd3adb671c
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue