File: inserttest_a.crm

package info (click to toggle)
crm114 20090807-6
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 3,016 kB
  • ctags: 1,248
  • sloc: ansic: 32,900; sh: 591; makefile: 576; lisp: 208
file content (26 lines) | stat: -rwxr-xr-x 756 bytes parent folder | download | duplicates (8)
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/