basis/eval/eval-tests.factor

   1 USING: eval tools.test ;
   2 IN: eval.tests
   3
   4 { 4 } [ "USE: math 2 2 +" eval( -- result ) ] unit-test
   5 [ "USE: math 2 2 +" eval( -- ) ] must-fail
   6 { "4\n" } [ "USING: math prettyprint ; 2 2 + ." eval>string ] unit-test