 ] 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
] unit-test

! 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 vocabs.parser ;
IN: fuel.eval.tests

! pop-restarts
