File Manager

#! /usr/bin/crm
#
#	eval_infiniteloop.com - test that EVAL properly detects blowups

# Copyright 2009 William S. Yerazunis.
# This file is under GPLv3, as described in COPYING.

#      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:/
}