4
<title>Some tests for Embperl escaping</title>
10
[- $optRawInput = 0 -]
12
$optRawInput [+ $optRawInput +]
13
$escmode [+ $escmode +]
14
'here is a \ ' -> [+ 'here is a \ ' +]
15
'here is a \\ ' -> [+ 'here is a \\ ' +]
16
'here is a \\\ ' -> [+ 'here is a \\\ ' +]
17
'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
18
'here is a <tag> ' -> [+ 'here is a <tag>' +]
19
'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
20
'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
21
'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
22
'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
23
'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
24
'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
25
'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
26
'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
29
[- $optRawInput = 1 -]
31
$optRawInput [+ $optRawInput +]
32
$escmode [+ $escmode +]
33
'here is a \ ' -> [+ 'here is a \ ' +]
34
'here is a \\ ' -> [+ 'here is a \\ ' +]
35
'here is a \\\ ' -> [+ 'here is a \\\ ' +]
36
'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
37
'here is a <tag> ' -> [+ 'here is a <tag>' +]
38
'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
39
'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
40
'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
41
'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
42
'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
43
'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
44
'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
45
'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
47
[- $optRawInput = 0 -]
49
$optRawInput [+ $optRawInput +]
50
$escmode [+ $escmode +]
51
'here is a \ ' -> [+ 'here is a \ ' +]
52
'here is a \\ ' -> [+ 'here is a \\ ' +]
53
'here is a \\\ ' -> [+ 'here is a \\\ ' +]
54
'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
55
'here is a <tag> ' -> [+ 'here is a <tag>' +]
56
'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
57
'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
58
'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
59
'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
60
'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
61
'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
62
'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
63
'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]
65
[- $optRawInput = 1 -]
67
$optRawInput [+ $optRawInput +]
68
$escmode [+ $escmode +]
69
'here is a \ ' -> [+ 'here is a \ ' +]
70
'here is a \\ ' -> [+ 'here is a \\ ' +]
71
'here is a \\\ ' -> [+ 'here is a \\\ ' +]
72
'here is a \\\\ ' -> [+ 'here is a \\\\ ' +]
73
'here is a <tag> ' -> [+ 'here is a <tag>' +]
74
'here is a \<tag> ' -> [+ 'here is a \<tag>' +]
75
'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +]
76
'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +]
77
'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +]
78
'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +]
79
'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +]
80
'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +]
81
'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +]