File Coverage

test/html/if.htm
Criterion Covered Total %
statement 194 328 59.1
branch 54 164 32.9
condition 13 44 29.5
subroutine 4 4 100.0
pod n/a
total 265 540 49.0


line stmt bran cond sub pod time code
1 1     1   11
  1         2  
  1         224  
2            
3             IF Metacommand in Embperl
4 1     1   3
  1         3  
5              
6 1         22
7              
8 1         3 [- $a = 1; $b = 0; $c = 5; $d = 'txt' -]
9 1         2  
  1         2  
  1         2  
  1         1  
  1         4  
10             a1
11 1 50       20 [$if $a$]
  1         6  
12 1     1   6 a
  1     1   2  
  1         66  
  1         5  
  1         3  
  1         37  
  1         18  
13             [$ endif$]
14 1         20  
15             a2
16 1 50       5 [$if $a $]
17 1         20 a
18             [$else$]
19 0         0 not a
20             [$ endif $]
21 1         25  
22             a3
23 1 50       4 [$if $a
$]
24 1         20 a
25             [$else
$]
26 0         0 not a
27             [$ endif
$]
28 1         21  
29             a4
30             [#
31             [$
if $a $]
32             a
33             [$
else
$]
34             not a
35             [$
endif $]
36             #]
37             a5
38 1 50       5 [$ if $a$]
39 1         20 a
40 1 50       5 [$if $b == 0$]
41 1         19 b is null
42             [$else$]
43 0         0 b is not null
44             [$endif$]
45 1         23 [$ else$]
46 0         0 not a
47             [$ endif $]
48 1         22  
49              
50 1 50       4 [$ if $a$]
51 1         22 a
52 1 50       6 [$if $b == 0$]
53 1         22 b is null
54             [$else$]
55 0         0 b is not null
56             [$endif$]
57 1         22 [$ else$]
58 0         0 not a
59 0 0       0 [$if $b == 0$]
60 0         0 b is null
61             [$else$]
62 0         0 b is not null
63             [$endif$]
64 0         0 [$ endif $]
65 1         22  
66              
67 1 50       5 [$ if !$a$]
68 0         0 not a
69 0 0       0 [$if $b == 0$]
70 0         0 b is null
71             [$else$]
72 0         0 b is not null
73             [$endif$]
74 0         0 [$ else$]
75 1         36 a
76 1 50       4 [$if $b == 0$]
77 1         20 b is null
78             [$else$]
79 0         0 b is not null
80             [$endif$]
81 1         22 [$ endif $]
82 1         19  
83              
84 1 50       4 [$ if $a$]
85 1         21 a
86 1 50       5 [$if $b == 0$]
    0          
    0          
87 1         39 b is null
88             [$elsif $c == 5 $]
89 0         0 b is not null and c is 5
90             [$elsif $d eq 'txt'$]
91 0         0 b is not null and c is not 5, but d is 'txt'
92             [$else$]
93 0         0 b is not null and c is not 5 and d is not 'txt'
94             [$endif$]
95 1         25 [$ else$]
96 0         0 not a
97             [$ endif $]
98 1         21  
99              
100 1 50       3 [$ if $a$]
101 1         22 a
102 1 50       14 [$if $b == 0$]
    0          
    0          
103 1         21 b is null
104             [$elsif $c == 5 $]
105 0         0 b is not null and c is 5
106             [$elsif $d eq 'txt'$]
107 0         0 b is not null and c is not 5, but d is 'txt'
108             [$else$]
109 0         0 b is not null and c is not 5 and d is not 'txt'
110             [$endif$]
111 1         21 [$ else$]
112 0         0 not a
113 0 0       0 [$if $b == 0$]
    0          
    0          
114 0         0 b is null
115             [$elsif $c == 5 $]
116 0         0 b is not null and c is 5
117             [$elsif $d eq 'txt'$]
118 0         0 b is not null and c is not 5, but d is 'txt'
119             [$else$]
120 0         0 b is not null and c is not 5 and d is not 'txt'
121             [$endif$]
122 0         0 [$ endif $]
123 1         20  
124              
125 1 50       3 [$ if $a == 0 $]
126 0         0 a is null
127 0 0       0 [$if $b != 0$]
    0          
    0          
128 0         0 b not is null
129             [$elsif $c == 5 $]
130 0         0 b is null and c is 5
131             [$elsif $d eq 'txt'$]
132 0         0 b is null and c is not 5, but d is 'txt'
133             [$else$]
134 0         0 b is null and c is not 5 and d is not 'txt'
135             [$endif$]
136 0         0 [$ else$]
137 1         21 a is not null
138 1 50       6 [$if $b != 0$]
    50          
    0          
139 0         0 b is not null
140             [$elsif $c == 5 $]
141 1         23 b is null and c is 5
142             [$elsif $d eq 'txt'$]
143 0         0 b is null and c is not 5, but d is 'txt'
144             [$else$]
145 0         0 b is null and c is not 5 and d is not 'txt'
146             [$endif$]
147 1         22 [$ endif $]
148 1         19  
149              
150 1 50       5 [$ if $a == 0 $]
151 0         0 a is null
152 0 0       0 [$if $b != 0$]
    0          
    0          
153 0         0 b not is null
154             [$elsif $c == 5 $]
155 0         0 b is null and c is 5
156             [$elsif $d eq 'txt'$]
157 0         0 b is null and c is not 5, but d is 'txt'
158             [$else$]
159 0         0 b is null and c is not 5 and d is not 'txt'
160             [$endif$]
161 0         0 [$ else$]
162 1         20 a is not null
163 1 50       8 [$if $b != 0$]
    50          
    50          
164 0         0 b is not null
165             [$elsif $c != 5 $]
166 0         0 b is null and c is not 5
167             [$elsif $d ne 'txt'$]
168 0         0 b is null and c is not 5, but d is not 'txt'
169             [$else$]
170 1         21 b is null and c is 5 and d is 'txt'
171             [$endif$]
172 1         19 [$ endif $]
173 1         19  
174              
175              
176 1 50       3 [$ if $a == 0 $]
177 0         0 a is null
178 0 0       0 [$if $b != 0$]
    0          
    0          
179 0         0 b not is null
180             [$elsif $c == 5 $]
181 0         0 b is null and c is 5
182             [$elsif $d eq 'txt'$]
183 0         0 b is null and c is not 5, but d is 'txt'
184             [$else$]
185 0         0 b is null and c is not 5 and d is not 'txt'
186             [$endif$]
187 0         0 [$ else$]
188 1         21 a is not null
189 1 50       9 [$if $b != 0$]
    50          
    50          
190 0         0 b is not null
191             [$elsif $c != 5 $]
192 0         0 b is null and c is not 5
193             [$elsif $d ne 'txt'$]
194 0         0 b is null and c is not 5, but d is not 'txt'
195             [$else$]
196 1         22 b is null and c is 5 and d is 'txt'
197 1 50       8 [$if $b != 0$]
    50          
    50          
198 0         0 b is not null
199             [$elsif $c != 5 $]
200 0         0 b is null and c is not 5
201             [$elsif $d eq 'txt'$]
202 1         21 b is null and c is not 5, but d is 'txt'
203 1 50       4 [$if $d eq 'txt'$]
204 1         19 If we get to here it looks good with the tests
205             [$else$]
206 0         0 No not go to here, something is wrong!
207             [$endif$]
208 1         24
209             [$else$]
210 0         0 b is null and c is 5 and d is 'txt'
211             [$endif$]
212 1         50 [$endif$]
213 1         22 [$ endif $]
214 1         19  
215              
216              
217              
218 1 50       4 [$ if $a == 0 $]
219 0         0 a is null
220 0 0       0 [$if $b != 0$]
    0          
    0          
221 0         0 b not is null
222             [$elsif $c == 5 $]
223 0         0 b is null and c is 5
224             [$elsif $d eq 'txt'$]
225 0         0 b is null and c is not 5, but d is 'txt'
226             [$else$]
227 0         0 b is null and c is not 5 and d is not 'txt'
228             [$endif$]
229 0         0 [$ else$]
230 1         24 a is not null
231 1 50       7 [$if $b != 0$]
    50          
    50          
232 0         0 b is not null
233 0 0       0 [$if $d eq 'txt'$]
234 0         0 No not go to here, something is wrong! (a)
235             [$else$]
236 0         0 No not go to here, something is wrong! (b)
237             [$endif$]
238 0         0 [$elsif $c != 5 $]
239 0         0 b is null and c is not 5
240 0 0       0 [$if $d eq 'txt'$]
241 0         0 No not go to here, something is wrong! (a)
242             [$else$]
243 0         0 No not go to here, something is wrong! (b)
244             [$endif$]
245 0         0 [$elsif $d ne 'txt'$]
246 0         0 b is null and c is not 5, but d is not 'txt'
247 0 0       0 [$if $d eq 'txt'$]
248 0         0 No not go to here, something is wrong! (a)
249             [$else$]
250 0         0 No not go to here, something is wrong! (b)
251             [$endif$]
252 0         0 [$else$]
253 1         22 b is null and c is 5 and d is 'txt'
254 1 50       7 [$if $b != 0$]
    50          
    50          
255 0         0 b is not null
256 0 0       0 [$if $d eq 'txt'$]
257 0         0 No not go to here, something is wrong! (a)
258             [$else$]
259 0         0 No not go to here, something is wrong! (b)
260             [$endif$]
261 0         0 [$elsif $c != 5 $]
262 0         0 b is null and c is not 5
263 0 0       0 [$if $d eq 'txt'$]
264 0         0 No not go to here, something is wrong! (a)
265             [$else$]
266 0         0 No not go to here, something is wrong! (b)
267             [$endif$]
268 0         0 [$elsif $d eq 'txt'$]
269 1         20 b is null and c is not 5, but d is 'txt'
270 1 50       4 [$if $d eq 'txt'$]
271 1         19 If we get to here it looks good with the tests
272             [$else$]
273 0         0 No not go to here, something is wrong!
274             [$endif$]
275 1         21
276             [$else$]
277 0         0 b is null and c is 5 and d is 'txt'
278 0 0       0 [$if $d eq 'txt'$]
279 0         0 No not go to here, something is wrong! (a)
280             [$else$]
281 0         0 No not go to here, something is wrong! (b)
282             [$endif$]
283 0         0 [$endif$]
284 1         25 [$endif$]
285 1         18 [$ endif $]
286 1         18  
287              
288              
289 1         2 [- $ttrue = 'true'; $tfalse = '' -]
290 1         3  
  1         3  
  1         2  
291 1 50       4 [$if $ttrue $]
292 1         18 ttrue = true
293             [$else$]
294 0         0 ttrue = false
295             [$endif$]
296 1         23  
297 1 50       4 [$if $tfalse $]
298 0         0 tfalse = true
299             [$else$]
300 1         25 tfalse = false
301             [$endif$]
302 1         19  
303             The following HTML tags schould be ignored by Embperl
304              
305            
306              
307             Ignored, ok!
308              
309            
310              
311             Not ignored, ERROR!
312              
313            
314              
315              
316              
317            
318 1         19
319 1         19
320 1 50       19 [$ if ($badge eq "iit") $]
321 0         0
  0         0  
322             [$ else $]
323 1         25
  1         6  
324             [$ endif $]
325 1 50       20
  1         12  
326 0         0 WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
  1         5  
327 0 50       0 [$ if ($badge eq "iit") $]
  1         4  
  1         10  
328 0   0     0 ALT="iit logo"
  0         0  
329             [$ else $]
330 1         23 ALT="iii logo"
  1         27  
331 1   50     17 [$ endif $]
332 1 50 33     20 [$ if (($badge eq "iit") && ($badge ne $cookie_badge) && !$cookie_to) $]
  1 50 33     10  
      33        
      33        
333 1         20 onload="window.open('/iit/welcometoiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=390,height=410,screenX=50,screenY=50,top=50,left=50'); return false"
  0         0  
334             [$ elsif (($badge eq "") && ($cookie_badge eq "iit") && !$cookie_from) $]
335 0         0 onload="window.open('/iit/leavingiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=370,height=320,screenX=100,screenY=100,top=100,left=100'); return false"
336             [$ endif $] qqq >
337 1         44  
338 1         20
339 1         17
340            
341              
342 1         2 [- $cookie_badge = "iit" ;
343 1         3 $server_type = "iii.co.uk" ;
  1         2  
344 1         2 $icon_width = 1 ;
345 1         2 $icon_height=2; -]
346 1         2
347 1         16
348 1         17
  1         19  
349 1 50       9 [$ if ($badge eq "iit") $]
350 0         0
  0         0  
351             [$ else $]
352 1         20
  1         4  
353             [$ endif $]
354 1 50       19
  1         5  
355 1         17 WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
  1         7  
356 1 50       5 [$ if ($badge eq "iit") $]
  1         5  
  1         11  
357 1   50     9 ALT="iit logo"
  0         0  
358             [$ else $]
359 0         0 ALT="iii logo"
  1         23  
360 0   0     0 [$ endif $]
361 1 50 33     18 [$ if (($badge eq "iit") && ($badge ne $cookie_badge) && !$cookie_to) $]
  1 50 33     9  
      33        
      33        
362 1         20 onload="window.open('/iit/welcometoiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=390,height=410,screenX=50,screenY=50,top=50,left=50'); return false"
  0         0  
363             [$ elsif (($badge eq "") && ($cookie_badge eq "iit") && !$cookie_from) $]
364 1         21 onload="window.open('/iit/leavingiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=370,height=320,screenX=100,screenY=100,top=100,left=100'); return false"
365             [$ endif $]>
366 1         18  
367 1         16
368 1         16
369            
370              
371              
372 1         2 [- $icon_width = 5 ; $icon_height=10; -]
373 1         3  
  1         1  
  1         2  
374            
375 1 50       127 [$ if (($server_type eq "iii")) $]
  1         5  
376 0         0 SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
  0         0  
377 0   0     0 [$ else $]
378 0   50     0 SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
  1         46  
  1         11  
379 0         0 [$ endif $]
  1         5  
380 1 50       4 [$ if ($badge eq "iit") $]
  1         17  
  1         10  
381 0         0 ALT="iit logo"
382             [$ else $]
383 1         22 ALT="iii logo"
384             [$ endif $]>
385 1         17  
386 1         2 [- $icon_width = 6 ; $icon_height=11; $server_type="iii" ; $badge = "iit" -]
387 1         3  
  1         2  
  1         1  
  1         2  
  1         2  
388            
389 1 50       17 [$ if (($server_type eq "iii")) $]
  1         3  
390 1         17 SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
  1         6  
391 1   50     9 [$ else $]
392 1   0     5 SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
  0         0  
  0         0  
393 1         5 [$ endif $]
  0         0  
394 0 50       0 [$ if ($badge eq "iit") $]
  1         47  
  1         3  
395 1         19 ALT="iit logo"
396             [$ else $]
397 0         0 ALT="iii logo"
398             [$ endif $]>
399 1         20  
400            
401 1 50       4 [$ if (($server_type eq "iii")) $]
402 1         16 SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
  1         4  
403 1   50     6 [$ else $]
404 1   0     3 SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
  0         0  
  0         0  
405 1         4 [$ endif $]
  0         0  
406 0 50       0 [$ if ($badge eq "iit") $]
  1         134  
  1         4  
407 1         19 ALT="iit logo"
408             [$ else $]
409 0         0 ALT="iii logo"
410             [$ endif $]
411 1         19 qqq>
412              
413 1         2  
414              
415 1         11734
416            
417