File Coverage

test/html/escutf8.htm
Criterion Covered Total %
statement 181 181 100.0
branch 24 48 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 210 234 89.7


line stmt bran cond sub pod time code
1 1     1   9  
  1         2  
  1         176  
2            
3            
4 1     1   2 Some tests for Embperl UTF8 escaping
  1         3  
5            
6 1         21  
7            
8 1         4 [-
9 1     1   15 use Encode ;
  1         3  
  1         2314  
  1         3  
10 1         8 $fdat{test} = "abc!'\"$%&()<>=äöüÄÖÜß©" ;
11 1         9 $fdat{utf8} = decode("iso-8859-1", $fdat{test}) ;
12 1     1   6 $escmodestd = $escmode ;
  1     1   2  
  1         57  
  1         4  
  1         4  
  1         27  
  1         66  
13             -]
14              
15 1         47 ------------------------------------------------
16             $epreq -> config -> output_esc_charset = 1
17 1         3 [- $epreq -> config -> output_esc_charset (1) -]
18 1         3  
  1         18  
19             $escmode = $escmodestd ;
20 1         19 [- $escmode = $escmodestd ; -]
  1         2  
21 1         3 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{test} +]
  1         17  
  1         9  
22 1 50       3
  1         57  
23 1         17
  1         3  
  1         22  
24             utf8:
25 1         7 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{utf8} +]
26 1 50       2
  1         44  
27 1         3
  1         20  
28              
29 1 50       5 poststd:
  1         40  
30 1 50       3 postutf8:
  1         44  
31              
32             $escmode = 8 ;
33 1         2 [- $escmode = 8 ; -]
34 1         2 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{test} +]
  1         18  
  1         4  
35 1 50       3
  1         41  
36 1         18
  1         2  
  1         20  
37             utf8:
38 1         6 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{utf8} +]
39 1 50       2
  1         41  
40 1         3
  1         21  
41              
42             $escmode = 2 ;
43 1         2 [- $escmode = 2 ; -]
44 1         3 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{test} +]
  1         15  
  1         5  
45 1 50       2
  1         41  
46 1         16
  1         1  
  1         20  
47             utf8:
48 1         5 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{utf8} +]
49 1 50       2
  1         41  
50 1         3
  1         20  
51              
52              
53             ------------------------------------------------
54             $epreq -> config -> output_esc_charset = 2
55 1         2 [- $epreq -> config -> output_esc_charset (2) -]
56 1         3  
  1         6  
57             $escmode = $escmodestd ;
58 1         18 [- $escmode = $escmodestd ; -]
  1         2  
59 1         1 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{test} +]
  1         16  
  1         6  
60 1 50       2
  1         45  
61 1         17
  1         3  
  1         20  
62             utf8:
63 1         6 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{utf8} +]
64 1 50       2
  1         60  
65 1         2
  1         22  
66              
67 1 50       3 poststd:
  1         39  
68 1 50       2 postutf8:
  1         38  
69              
70             $escmode = 8 ;
71 1         3 [- $escmode = 8 ; -]
72 1         2 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{test} +]
  1         16  
  1         9  
73 1 50       3
  1         38  
74 1         17
  1         3  
  1         20  
75             utf8:
76 1         5 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{utf8} +]
77 1 50       2
  1         38  
78 1         2
  1         20  
79              
80             $escmode = 2 ;
81 1         2 [- $escmode = 2 ; -]
82 1         3 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{test} +]
  1         16  
  1         5  
83 1 50       2
  1         39  
84 1         17
  1         3  
  1         20  
85             utf8:
86 1         5 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{utf8} +]
87 1 50       3
  1         42  
88 1         3
  1         20  
89              
90              
91             ------------------------------------------------
92             $epreq -> config -> output_esc_charset = 0
93 1         3 [- $epreq -> config -> output_esc_charset (0) -]
94 1         3  
  1         7  
95             $escmode = $escmodestd ;
96 1         17 [- $escmode = $escmodestd ; -]
  1         2  
97 1         2 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{test} +]
  1         16  
  1         6  
98 1 50       2
  1         48  
99 1         18
  1         2  
  1         22  
100             utf8:
101 1         6 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{utf8} +]
102 1 50       2
  1         40  
103 1         3
  1         20  
104              
105 1 50       3 poststd:
  1         40  
106 1 50       2 postutf8:
  1         35  
107              
108             $escmode = 8 ;
109 1         2 [- $escmode = 8 ; -]
110 1         2 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{test} +]
  1         15  
  1         6  
111 1 50       2
  1         39  
112 1         18
  1         3  
  1         21  
113             utf8:
114 1         5 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{utf8} +]
115 1 50       2
  1         109  
116 1         3
  1         22  
117              
118             $escmode = 2 ;
119 1         4 [- $escmode = 2 ; -]
120 1         3 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{test} +]
  1         17  
  1         5  
121 1 50       2
  1         56  
122 1         22
  1         3  
  1         23  
123             utf8:
124 1         5 abc!"$%&()<>=äöüÄÖÜß -> [+ $fdat{utf8} +]
125 1 50       2
  1         42  
126 1         2
  1         21  
127              
128             ------------------------------------------------
129             $epreq -> config -> output_esc_charset = 1
130 1         2 [- $epreq -> config -> output_esc_charset (1) -]
131 1         3  
  1         6  
132             $escmode = $escmodestd ;
133 1         17 [- $escmode = $escmodestd ; -]
  1         2  
134 1         2  
  1         16  
135              
136 1         17  
137            
138 1         2