eval: adding test for eval-with-stack>string

diff --git a/basis/eval/eval-tests.factor b/basis/eval/eval-tests.factor
index bb4447b50ea17c96480f5b839bf37606c7291f5e..807de09338cef4baeae53e471dc5f53efe9d8aed 100644 (file)
--- a/basis/eval/eval-tests.factor
+++ b/basis/eval/eval-tests.factor
@@ -3,3 +3,4 @@ USING: eval tools.test ;
 { 4 } [ "USE: math 2 2 +" eval( -- result ) ] unit-test
 [ "USE: math 2 2 +" eval( -- ) ] must-fail
 { "4\n" } [ "USING: math prettyprint ; 2 2 + ." eval>string ] unit-test
+{ "1\n\n--- Data stack:\n4\n" } [ "USE: prettyprint 1 . 4" eval-with-stack>string ] unit-test