basis/eval/eval-tests.factor

   1 USING: eval tools.test ;
   2
   3 { 4 } [ "USE: math 2 2 +" eval( -- result ) ] unit-test
   4 [ "USE: math 2 2 +" eval( -- ) ] must-fail
   5 { "4\n" } [ "USING: math prettyprint ; 2 2 + ." eval>string ] unit-test
   6
   7 { "1\n\n--- Data stack:\n4\n" } [ "USE: prettyprint 1 . 4" eval-with-stack>string ] unit-test
   8 { "1: asdf\n       ^\nNo word named “asdf” found in current vocabulary search path\n" }
   9 [ "asdf" eval-with-stack>string ] unit-test