richter 2004/01/22 12:40:14
Modified: . MANIFEST test.pl
Added: test/cmp sub2.htm
test/html sub2.htm
Log:
more tests for subs
Revision Changes Path
1.84 +2 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -r1.83 -r1.84
--- MANIFEST 22 Jan 2004 20:18:50 -0000 1.83
+++ MANIFEST 22 Jan 2004 20:40:14 -0000 1.84
@@ -204,6 +204,7 @@
test/cmp/asp.htm
test/cmp/binary.htm
test/cmp/callsub.htm
+test/cmp/sub2.htm
test/cmp/changeattr.htm
test/cmp/chdir.htm
test/cmp/clearsess.htm
@@ -405,6 +406,7 @@
test/html/asp.htm
test/html/binary.htm
test/html/callsub.htm
+test/html/sub2.htm
test/html/changeattr.htm
test/html/chdir.htm
test/html/clearsess.htm
1.131 +4 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.130
retrieving revision 1.131
diff -u -r1.130 -r1.131
--- test.pl 22 Jan 2004 19:51:12 -0000 1.130
+++ test.pl 22 Jan 2004 20:40:14 -0000 1.131
@@ -338,6 +338,9 @@
'callsub.htm' => {
'repeat' => 2,
},
+ 'sub2.htm' => {
+ 'repeat' => 2,
+ },
'executesub.htm' => {
'version' => 2,
'repeat' => 2,
1.1 embperl/test/cmp/sub2.htm
Index: sub2.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - Embperl sub Metacommand 2</title>
</head>
<body>
<h1>Tests for Embperl - Embperl sub Metacommand 2</h1>
*1
*txt*
*txt* <h2>Here goes some normal html text <h2>
*txt*
*2
*txt2*
*txt2* <h2>Here goes some normal html text <h2>
*txt2*
*txt*
*txt* <h2>Here goes some normal html text <h2>
*txt*
*txt2* after txt1
*3
*txt*
*txt* <h2>Here goes some normal html text <h2>
*txt*
*txt2*
*txt2* <h2>Here goes some normal html text <h2>
*txt2*
*txt*
*txt* <h2>Here goes some normal html text <h2>
*txt*
*txt2* after txt1
*4
*txt*
*txt* <h2>Here goes some normal html text <h2>
*txt*
*txt2*
*txt2* <h2>Here goes some normal html text <h2>
*txt2*
*txt*
*txt* <h2>Here goes some normal html text <h2>
*txt*
*txt2* after txt1
*txt*
*txt* <h2>Here goes some normal html text <h2>
*txt*
*txt2*
*txt2* <h2>Here goes some normal html text <h2>
*txt2*
*txt*
*txt* <h2>Here goes some normal html text <h2>
*txt*
*txt2* after txt1
----> txt3
*txt3* after txt3
========================================================
<table>
<tr><td>1</td></tr>
<tr><td>2</td></tr>
<tr><td>4</td></tr>
-> 5
<tr><td>5</td></tr>
</table>
1.1 embperl/test/html/sub2.htm
Index: sub2.htm
===================================================================
<html>
<head>
<title>Tests for Embperl - Embperl sub Metacommand 2</title>
</head>
<body>
[###### sub 1 #####]
[$sub txt1$]
*txt*
*txt* <h2>Here goes some normal html text <h2>
*txt*
[$endsub$]
[###### sub 2 #####]
[$sub txt2$]
*txt2*
*txt2* <h2>Here goes some normal html text <h2>
*txt2*
[- txt1 -]
*txt2* after txt1
[$endsub$]
[###### sub 3 #####]
[$sub txt3$]
[- txt2 -]
*txt3* after txt3
[$endsub$]
[$sub tabrow $]
<tr><td>[+ $_[0] +]</td></tr>
[$endsub$]
<h1>Tests for Embperl - Embperl sub Metacommand 2</h1>
*1
[- txt1 -]
*2
[- txt2 -]
*3
[- txt1 -]
[- txt2 -]
*4
[- txt1 ; txt2 -]
[- txt1 ; txt2 -]
----> txt3
[- txt3 -]
========================================================
<table>
[- tabrow(1) -]
[$if (1) $]
[- tabrow(2) -]
[$else$]
[- tabrow(3) -]
[$endif$]
[- tabrow(4) -]
-> 5
[- tabrow(5) -]
</table>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
