richter 00/08/23 23:03:49
Modified: . MANIFEST
Added: test/cmp epobaselib.htm epostopdir.htm errdoc2.htm
test/html errmsg2.htm
test/html/EmbperlObject/base2 epobase2.htm epostopdir.htm
test/html/EmbperlObject/base3 epobaselib.htm
test/html/EmbperlObject/lib epobase3.htm epolib.htm
test/html/errdoc/epl errdoc2.htm
Log:
New test files
Revision Changes Path
1.48 +1 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- MANIFEST 2000/08/24 05:43:40 1.47
+++ MANIFEST 2000/08/24 06:03:47 1.48
@@ -63,6 +63,7 @@
test/html/errdoc/errdoc.htm
test/html/errdoc/epl/errdoc2.htm
test/html/errmsg.htm
+test/html/errmsg2.htm
test/html/escape.htm
test/html/spaces.htm
test/html/if.htm
1.1 embperl/test/cmp/epobaselib.htm
Index: epobaselib.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - EmbperlObject - base 3 from lib</title>
</head>
<body>
<h1>head from foo</h1>
PAGE with base from lib
PAGE from lib
<hr> Footer <hr>
</body>
</html>
1.1 embperl/test/cmp/epostopdir.htm
Index: epostopdir.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - EmbperlObject - base 2</title>
</head>
<body>
<h1>head from foo</h1>
PAGE 1 (Header and Footer found with STOPDIR)
PAGE from lib
<hr> Footer <hr>
</body>
</html>
1.1 embperl/test/cmp/errdoc2.htm
Index: errdoc2.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - ErrorDocument</title>
</head>
<body>
This page is shown due to an ErrorDocument redirection<p>
main:
^prev: Apache=SCALAR
next:
^last: Apache=SCALAR
There are 15 errormessages:
<table border=1>
^ <tr><td>\[\d+\]ERR: 32: Line 13: Warning in Perl code: Use of uninitialized
value at
^ <tr><td>\[\d+\]ERR: 32: Line 14: Warning in Perl code: Use of uninitialized
value at
^ <tr><td>\[\d+\]ERR: 32: Line 15: Warning in Perl code: Use of uninitialized
value at
^ <tr><td>\[\d+\]ERR: 32: Line 16: Warning in Perl code: Use of uninitialized
value at
^ <tr><td>\[\d+\]ERR: 32: Line 17: Warning in Perl code: Use of uninitialized
value at
^ <tr><td>\[\d+\]ERR: 32: Line 21: Warning in Perl code: Unquoted string
"qqqqqqqqqqqqqq" may clash with future reserved word at
^ <tr><td>\[\d+\]ERR: 24: Line 21: Error in Perl code: syntax error at
^ <tr><td>\[\d+\]ERR: 24: Line 32: Error in Perl code: syntax error at
^ <tr><td>\[\d+\]ERR: 24: Line 32: Error in Perl code: Can't call method
"qq2" without a package or object reference at
^ <tr><td>\[\d+\]ERR: 32: Line 32: Warning in Perl code: Use of uninitialized
value at
^ <tr><td>\[\d+\]ERR: 32: Line 46: Warning in Perl code: Bareword found where
operator expected at
^ <tr><td>\[\d+\]ERR: 32: Line 46: Warning in Perl code: \(Missing
operator before is\?\)</td></tr>
^ <tr><td>\[\d+\]ERR: 24: Line 46: Error in Perl code: syntax error at
^Missing right bracket at
^syntax error at
^ <tr><td>\[\d+\]ERR: 20: Line 58: </tr> without <tr></td></tr>
^ <tr><td>\[\d+\]ERR: 45: Line 58: Unclosed HTML tag <table> at end of
file </td></tr>
</table>
</body>
</html>
1.1 embperl/test/html/errmsg2.htm
Index: errmsg2.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - ErrorDocument</title>
</head>
<body>
This page is shown due to an ErrorDocument redirection<p>
main: [+ $req_rec -> main +]
prev: [+ $req_rec -> prev +]
next: [+ $req_rec -> next +]
last: [+ $req_rec -> last +]
[-
$errors = $req_rec -> prev -> pnotes('EMBPERL_ERRORS') ;
-]
There are [+ scalar(@$errors) +] errormessages:
<table border=1>
<tr><td>[+ $errors -> [$row] +]</td></tr>
</table>
</body>
</html>
1.1 embperl/test/html/EmbperlObject/base2/epobase2.htm
Index: epobase2.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - EmbperlObject - base 2</title>
</head>
<body>
[- Execute ('epohead.htm') -]
[- Execute ('*') -]
[- Execute ('epolib.htm') -]
[- Execute ('epofoot.htm') -]
</body>
</html>
1.1 embperl/test/html/EmbperlObject/base2/epostopdir.htm
Index: epostopdir.htm
===================================================================
PAGE 1 (Header and Footer found with STOPDIR)
1.1 embperl/test/html/EmbperlObject/base3/epobaselib.htm
Index: epobaselib.htm
===================================================================
PAGE with base from lib
1.1 embperl/test/html/EmbperlObject/lib/epobase3.htm
Index: epobase3.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - EmbperlObject - base 3 from lib</title>
</head>
<body>
[- Execute ('epohead.htm') -]
[- Execute ('*') -]
[- Execute ('epolib.htm') -]
[- Execute ('epofoot.htm') -]
</body>
</html>
1.1 embperl/test/html/EmbperlObject/lib/epolib.htm
Index: epolib.htm
===================================================================
PAGE from lib
1.1 embperl/test/html/errdoc/epl/errdoc2.htm
Index: errdoc2.htm
===================================================================
<html>
<head>
<title>Some Plain tests for Embperl</title>
</head>
<body>
Here it starts with some HTML Text<P>
All values should be undefined:
$a = [+ $a +] <BR>
$b = [+ $b +] <BR>
$c = [+ $c +] <BR>
$d = [+ $d +] <BR>
$e = [+ $e +] <BR>
Here we will see an error:
[- $a = (qqqqqqqqqqqqqq -]
First of all assign a value:
[- $a = '(this is the value in $a)' -] <BR>
Now we have some 'Umlaute':
[- $b = "$a äöü" -]
Second Error:<BR>
[+ $a+ +] [+ qq2$b +]<BR>
And now a and b together: [+ "$a$b" +]<P>
Here we have some HTML tags within the perl code, Embperl will delete them!<BR>
[+ $c = <BR> 6 + 17 <font size="3"> * 3 +]
Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6
will get the perl expression $a < 6: <BR>
[- $e = 2 -]
[+ $d = $e < 6 +]
Now they should have a value
[$if {$error is here ) $]
$a = [+ $a +] <BR>
$b = [+ $b +] <BR>
$c = [+ $c +] <BR>
$d = [+ $d +] <BR>
$e = [+ $e +] <BR>
[$endif$]
Tag missmatch:
<table>
</tr>
<P>Ok.<P>
</body>
</html>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
