1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#! /usr/bin/crm
#
# inserttest_a.crm - test insert processor
# Copyright 2009 William S. Yerazunis.
# This file is under GPLv3, as described in COPYING.
window
output /\nStart of insert processor testing \n/
output / start here .../
insert [:*:_env_PWD:/inserttest_b.crm]
output / and the last bit of normal text \n/
output /now we test nonexistent file overrides \n/
output /this should not cause a FATAL ERROR, because we trap it.\n/
{
{
insert there_is_no_such_file_as_this.txt
}
output /You should never see this text/
#
trap (:my_fault:) /.*/
{
output /We caught the nonexistent file fault here. Message was:\n <<start of msg>>\n:*:my_fault:\n <<end of msg>> \nvia the TRAP\n/
}
}
output /End of insert testing. \n\n/
|
