2009-01-11 18:52:31 -05:00
|
|
|
! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2017-01-07 09:20:13 -05:00
|
|
|
USING: fuel fuel.eval io.streams.string math namespaces random.data
|
|
|
|
|
sequences tools.test ;
|
2009-01-11 18:52:31 -05:00
|
|
|
IN: fuel.eval.tests
|
2014-10-10 13:45:13 -04:00
|
|
|
|
|
|
|
|
! Make sure prettyprint doesn't limit output.
|
|
|
|
|
|
|
|
|
|
{ t } [
|
|
|
|
|
1000 random-string fuel-eval-result set-global
|
|
|
|
|
[ fuel-send-retort ] with-string-writer length 1000 >
|
|
|
|
|
] unit-test
|
2017-01-07 09:20:13 -05:00
|
|
|
|
|
|
|
|
{
|
|
|
|
|
"(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
|
|
|
|
|
] unit-test
|
