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