richter 00/12/03 05:23:17
Modified: . MANIFEST
Added: test/cmp varepvar.htm
test/html varepvar.htm
Log:
New Tests
Revision Changes Path
1.57 +2 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -r1.56 -r1.57
--- MANIFEST 2000/11/15 08:15:40 1.56
+++ MANIFEST 2000/12/03 13:23:16 1.57
@@ -81,6 +81,7 @@
test/html/input.htm
test/html/var.htm
test/html/varerr.htm
+test/html/varepvar.htm
test/html/hidden.htm
test/html/java.htm
test/html/inputjava.htm
@@ -194,6 +195,7 @@
test/cmp/var.htm
test/cmp/varerr.htm
test/cmp/varerr.htm56
+test/cmp/varepvar.htm
test/cmp/hidden.htm
test/cmp/java.htm
test/cmp/inputjava.htm
1.1 embperl/test/cmp/varepvar.htm
Index: varepvar.htm
===================================================================
<html>
<head>
<title>Test for predefined Embperl variables and [ $ var $ ]</title>
</head>
$conf = <br>
^\$_\[0\] = HTML::Embperl::Req=HASH\(0x.*?\) <br>
$_[1] = <br>
^\$rec_rec = Apache=SCALAR\(0x.*?\)<br>
^\$\$rec_rec = \d+<br>
^Apache->request = Apache=SCALAR\(0x.*?\)<br>
^\$\{Apache->request\} = \d+<br>
${Apache->request} = $$req_rec ? yes <br>
^.*?test\/html\/varepvar\.htm
<table>
<tr><td>a</td><td>1 </td></tr>
<tr><td>b</td><td>2 </td></tr>
</table>
</body>
</html>
1.1 embperl/test/html/varepvar.htm
Index: varepvar.htm
===================================================================
<html>
<head>
<title>Test for predefined Embperl variables and [ $ var $ ]</title>
</head>
[$ var $conf $ar $]
$conf = [+ defined ($conf)?$conf:'<undef>' +] <br>
$_[0] = [+ defined ($_[0])?$_[0]:'<undef>' +] <br>
$_[1] = [+ defined ($_[1])?$_[1]:'<undef>' +] <br>
$rec_rec = [+ $req_rec +]<br>
$$rec_rec = [+ $$req_rec +]<br>
[- $ar = eval { Apache->request } ; $@ = '' -]
Apache->request = [+ $ar +]<br>
${Apache->request} = [+ $$ar +]<br>
${Apache->request} = $$req_rec ? [+ ($$ar == $$req_rec)?'yes':'no' +] <br>
[+ $req_rec -> filename +]
<table>
<tr><td>[+ $ffld[$row] +]</td><td>[+ $fdat{$ffld[$row]} +] </td></tr>
</table>
</body>
</html>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
