File Coverage

test/html/error.htm
Criterion Covered Total %
statement 27 27 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 36 36 100.0


line stmt bran cond sub pod time code
1 1     1   11  
  1     1   3  
  1     1   257  
  1         13  
  1         2  
  1         146  
  1         10  
  1         2  
  1         152  
2            
3            
4             Some Plain tests for Embperl
5            
6              
7            
8              
9             Here it starts with some HTML Text
10              
11             All values should be undefined:
12 1     1   6  
  1     1   1  
  1     1   77  
  1     1   5  
  1     1   2  
  1     1   28  
  1         5  
  1         3  
  1         75  
  1         7  
  1         2  
  1         35  
  1         6  
  1         2  
  1         63  
  1         6  
  1         3  
  1         31  
13             $a = [+ $a +]
14             $b = [+ $b +]
15             $c = [+ $c +]
16             $d = [+ $d +]
17             $e = [+ $e +]
18              
19             Here we will see an error:
20              
21             [- $a = (qqqqqqqqqqqqqq -]
22              
23             First of all assign a value:
24             [- $a = '(this is the value in $a)' -]
25              
26             Now we have some 'Umlaute':
27              
28              
29             [- $b = "$a äöü" -]
30              
31             Second Error:
32             [+ $a+ +] [+ qq2$b +]
33              
34             And now a and b together: [+ "$a$b" +]
35              
36             Here we have some HTML tags within the perl code, Embperl will delete them!
37              
38             [+ $c =
6 + 17 * 3 +]
39              
40             Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
41              
42             [- $e = 2 -]
43             [+ $d = $e < 6 +]
44              
45             Now they should have a value
46             [$if {$error is here ) $]
47             $a = [+ $a +]
48             $b = [+ $b +]
49             $c = [+ $c +]
50             $d = [+ $d +]
51             $e = [+ $e +]
52             [$endif$]
53              
54              
55              
56            

Ok.
57              
58              
59            
60