Test for HTML::Embperl::Execute and errors

# 1.) The next one produces an error page

###
Embperl Error

# Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\. ^\[.*?\]ERR\: 32\: Line 13\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\. ^\[.*?\]ERR\: 32\: Line 14\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\. ^\[.*?\]ERR\: 32\: Line 15\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\. ^\[.*?\]ERR\: 32\: Line 16\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\. ^\[.*?\]ERR\: 32\: Line 17\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\. ^^\[.*?\]ERR\: 32\: Line 21\: Warning in Perl code\: Unquoted string "qqqqqqqqqqqqqq" may clash with future reserved word at .*? line \d*\. ^\[.*?\]ERR\: 24\: Line 21\: Error in Perl code\: syntax error at .*? line \d*\, at EOF ^\[.*?\]ERR\: 24\: Line 32\: Error in Perl code\: syntax error at .*? line \d*\, at EOF ^\[.*?\]ERR\: 24\: Line 32\: Error in Perl code\: Can.*? ^\[.*?\]ERR\: 32\: Line 32\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\. ^^\[.*?\]ERR\: 32\: Line 46\: Warning in Perl code\: Bareword found where operator expected at .*? ^^\[.*?\]ERR\: 32\: Line 46\: Warning in Perl code\: \(Missing operator before is\?\) ^\[.*?\]ERR\: 24\: Line 46\: Error in Perl code\: syntax error at .*? line \d*\, near \"\;\$error is here \"\; ^
Missing right bracket at .*? line \d*\, at end of line ^
syntax error at .*? line \d*\, at EOF ^\[.*?\]ERR\: 20\: Line 58\: \<\;\/tr\>\; without \<\;tr\>\; ^\[.*?\]ERR\: 45\: Line 58\: Unclosed HTML tag <table> at end of file ^ HTML\:\:Embperl.*?

# 2.) The next one produces an errors, but error page is disabled

###
Some Plain tests for Embperl
Here it starts with some HTML Text

All values should be undefined: $a = (this is the value in $a)
$b = (this is the value in $a) äöü
$c = 57
$d = 1
$e = 2
Here we will see an error: First of all assign a value:
Now we have some 'Umlaute': Second Error:
And now a and b together: (this is the value in $a)(this is the value in $a) äöü

Here we have some HTML tags within the perl code, Embperl will delete them!
57 Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
1 Now they should have a value Tag missmatch:

# 3.) Done :-)

^HTTP ^Date ^Server ^Connection Content-Type: text/html ^^ ^ </HEAD><BODY> ^<H1> The server encountered an internal error or misconfiguration and was unable to complete your request.<P> Please contact the server administrator, ^ .*? and inform them of the time the error occurred, and anything you might have done that may have caused the error.<P> ^^More information about this error may be available ^^in the server error log.<P> <P>Additionally, a 500 Internal Server Error error was encountered while trying to use an ErrorDocument to handle the request. </BODY></HTML>