1 USING: eval tools.test ;
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
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