#!@BIN_PATH@/crm
#
#      stress-out EVAL by an infinitely looping evaluation.  This SHOULD
#      cause an nonfatal error.
#
window
output / \n\n/
output /  This test checks to see that EVAL properly detects blowups\n/
output /  You should see an error message as the next thing,\n/
output /   with a large string of Z's. \n/

{ 
 	isolate (:e:) /:*/  
	isolate (:a:) /:*:e::a:Z/  
	eval (:b:) /:*:a:/ 
	output /:*:a:/ 
}
trap (:my_err:) /*/
{
	output /We should get an error here, due to the (intentional!) loop\n/ 
	output /:*:my_err:/
}