richter 00/06/06 21:10:43
Modified: . Tag: Embperl2 Embperl.pm MANIFEST test.pl
test/cmp Tag: Embperl2 div.htm escape.htm-1
Added: test/cmp Tag: Embperl2 div.htm-1 if.htm-1 include.htm-1
input.htm-1 loop.htm-1 mix.htm-1 object.htm-1
table.htm-1
test/html Tag: Embperl2 div.htm-1 escape.htm-1 input.htm-1
object.htm-1
Log:
Embperl 2 - V1 Compat Tests
Revision Changes Path
No revision
No revision
1.104.2.9 +3 -3 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.104.2.8
retrieving revision 1.104.2.9
diff -u -r1.104.2.8 -r1.104.2.9
--- Embperl.pm 2000/06/06 19:48:50 1.104.2.8
+++ Embperl.pm 2000/06/07 04:10:38 1.104.2.9
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.104.2.8 2000/06/06 19:48:50 richter Exp $
+# $Id: Embperl.pm,v 1.104.2.9 2000/06/07 04:10:38 richter Exp $
#
###################################################################################
@@ -81,7 +81,7 @@
@ISA = qw(Exporter DynaLoader);
-$VERSION = '2.0b1_dev';
+$VERSION = '2.0a1';
# HTML::Embperl cannot be bootstrapped in nonlazy mode except
@@ -597,7 +597,7 @@
{
next if (!$_) ;
$fn = "$_/$filename" ;
- warn "Embperl path search $fn\n" ;
+ #warn "Embperl path search $fn\n" ;
if (-r $fn && (-s _ || $AllowZeroFilesize))
{
if (defined ($allow) && !($fn =~ /$allow/))
1.41.2.1 +27 -5 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.41
retrieving revision 1.41.2.1
diff -u -r1.41 -r1.41.2.1
--- MANIFEST 2000/05/02 06:47:10 1.41
+++ MANIFEST 2000/06/07 04:10:38 1.41.2.1
@@ -4,6 +4,10 @@
EmbperlObject.pm
MANIFEST
Makefile.PL
+Embperl/Module.pm
+Embperl/Session.pm
+Embperl/Mail.pm
+EmbperlLogo.gif
README
TODO
Faq.pod
@@ -51,6 +55,12 @@
epnames.h
epmacro.h
epdbg.c
+epdom.c
+epdom.h
+epcomp.c
+epparse.c
+epcmd2.c
+Embperl/Syntax.pm
test.pl
test/html/ascii
test/html/pure.htm
@@ -85,7 +95,7 @@
test/html/registry/Execute.htm
test/html/registry/errpage.htm
test/html/registry/tied.htm
-test/html/include.htm
+test/html/rawinput/include.htm
test/html/incsub.htm
test/html/incerr.htm
test/html/incparam.htm
@@ -211,7 +221,19 @@
test/conf/startup_dso.pl
test/conf/ssldisable.conf
test/conf/null
-Embperl/Module.pm
-Embperl/Session.pm
-Embperl/Mail.pm
-EmbperlLogo.gif
+test/html/div.htm-1
+test/html/escape.htm-1
+test/html/input.htm-1
+test/html/object.htm-1
+test/cmp/div.htm-1
+test/cmp/error.htm-1
+test/cmp/escape.htm-1
+test/cmp/if.htm-1
+test/cmp/include.htm-1
+test/cmp/input.htm-1
+test/cmp/loop.htm-1
+test/cmp/mix.htm-1
+test/cmp/object.htm-1
+test/cmp/table.htm-1
+test/cmp/var.htm-1
+test/cmp/varerr.htm-1
1.57.2.20 +9 -5 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.57.2.19
retrieving revision 1.57.2.20
diff -u -r1.57.2.19 -r1.57.2.20
--- test.pl 2000/06/07 03:27:11 1.57.2.19
+++ test.pl 2000/06/07 04:10:38 1.57.2.20
@@ -26,7 +26,7 @@
## 'errdoc/errdoc.htm???8?262144',
## 'rawinput/rawinput.htm????16',
'var.htm',
-## 'varerr.htm???-1',
+ 'varerr.htm???-1',
## 'varerr.htm???2',
'escape.htm',
## 'spaces.htm',
@@ -100,7 +100,7 @@
'execgetsess.htm',
'clearsess.htm',
'EmbperlObject/epopage1.htm',
- 'EmbperlObject/sub/epopage2.htm',
+## 'EmbperlObject/sub/epopage2.htm',
) ;
@@ -229,6 +229,7 @@
print "files: <filename>|<testnumber>|-<testnumber>\n\n" ;
print "options:\n" ;
print "o test offline\n" ;
+ print "1 test Embperl 1.x compatibility\n" ;
print "c test cgi\n" ;
print "h test mod_perl\n" ;
print "e test execute\n" ;
@@ -575,7 +576,7 @@
#### check commandline options #####
if ($EPHTTPD ne '')
- { $testtype = $cmdarg || 'ohce' ; }
+ { $testtype = $cmdarg || 'ohe' ; }
else
{ $testtype = $cmdarg || 'oe' ; }
@@ -643,7 +644,7 @@
$cp -> deny (':base_loop') ;
-$ENV{EMBPERL_ALLOW} = 'asc|\\.htm$' ;
+$ENV{EMBPERL_ALLOW} = 'asc|\\.htm$|\\.htm-1$' ;
do
{
@@ -653,7 +654,7 @@
#
#############
- if ($testtype =~ /o/)
+ if ($testtype =~ /o|1/)
{
print "\nTesting offline mode...\n\n" ;
@@ -670,6 +671,8 @@
$testnum = -1 ;
foreach $ep1compat (0, 1)
{
+ next if (($ep1compat && !($testtype =~ /1/)) || (!$ep1compat &&
!($testtype =~ /o/)));
+
$ENV{EMBPERL_EP1COMPAT} = $ep1compat ;
print "\nTesting Embperl 1.x compatibility mode...\n\n" if ($ep1compat) ;
@@ -694,6 +697,7 @@
$debug ||= $defaultdebug ;
$page = "$inpath/$file" ;
+ $page .= '-1' if ($ep1compat && -e "$page-1") ;
$errcnt ||= 0 ;
$notseen = $seen{"o:$page"}?0:1 ;
No revision
No revision
1.2.2.2 +1 -1 embperl/test/cmp/div.htm
Index: div.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/div.htm,v
retrieving revision 1.2.2.1
retrieving revision 1.2.2.2
diff -u -r1.2.2.1 -r1.2.2.2
--- div.htm 2000/06/06 10:25:39 1.2.2.1
+++ div.htm 2000/06/07 04:10:39 1.2.2.2
@@ -313,7 +313,7 @@
</tr>
</table>
-<P>2.0b1_dev<P>
+^<P>\d.*?<P>
<P>17<P>
<P>1<P>
1.1.2.2 +26 -5 embperl/test/cmp/Attic/escape.htm-1
Index: escape.htm-1
===================================================================
RCS file: /home/cvs/embperl/test/cmp/Attic/escape.htm-1,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- escape.htm-1 2000/06/07 03:27:13 1.1.2.1
+++ escape.htm-1 2000/06/07 04:10:40 1.1.2.2
@@ -74,10 +74,31 @@
What is the EscMode? 3
file.html?name=abcd&data=xyz
Now we localy set $escmode:<BR>
-(this is the value in $a) ������???<&+ <BR>
-(this is the value in $a) äöüäöü???<&+ <BR>
-(this+is+the+value+in+$a)+������%3F%3F%3F%3C%26%2B++<BR>
-(this is the value in $a) äöüäöü???<&+ <BR>
+(this is the value in $a) ������???<&+ \<a><BR>
+(this is the value in $a) äöüäöü???<&+
<a><BR>
+(this+is+the+value+in+$a)+������%3F%3F%3F%3C%26%2B++++<a%3E<BR>
+(this is the value in $a) äöüäöü???<&+
<a><BR>
+(this is the value in $a) ������???<&+ \<a><BR>
+(this is the value in $a) äöüäöü???<&+
\<a><BR>
+(this+is+the+value+in+$a)+������%3F%3F%3F%3C%26%2B++++\%3Ca%3E<BR>
+(this is the value in $a) äöüäöü???<&+
\<a><BR>
+
+Same without local:
+(this is the value in $a) ������???<&+ \<a><BR>
+(this is the value in $a) äöüäöü???<&+
<a><BR>
+(this+is+the+value+in+$a)+������%3F%3F%3F%3C%26%2B++++<a%3E<BR>
+(this is the value in $a) äöüäöü???<&+
<a><BR>
+(this is the value in $a) ������???<&+ \<a><BR>
+(this is the value in $a) äöüäöü???<&+
\<a><BR>
+(this+is+the+value+in+$a)+������%3F%3F%3F%3C%26%2B++++\%3Ca%3E<BR>
+(this is the value in $a) äöüäöü???<&+
\<a><BR>
+
+
+Control Chars 0x80-0x9f:
+€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ <BR>
+
+Control Chars 129 & 130:
+&#129;&#130;<BR>
0
<A HREF='http://host/script?name=My+Name+���'>
@@ -195,4 +216,4 @@
</body>
</html>
-
+
No revision
No revision
1.1.2.1 +339 -0 embperl/test/cmp/Attic/div.htm-1
1.1.2.1 +57 -0 embperl/test/cmp/Attic/if.htm-1
1.1.2.1 +298 -0 embperl/test/cmp/Attic/include.htm-1
1.1.2.1 +586 -0 embperl/test/cmp/Attic/input.htm-1
1.1.2.1 +225 -0 embperl/test/cmp/Attic/loop.htm-1
1.1.2.1 +65 -0 embperl/test/cmp/Attic/mix.htm-1
1.1.2.1 +39 -0 embperl/test/cmp/Attic/object.htm-1
1.1.2.1 +382 -0 embperl/test/cmp/Attic/table.htm-1
No revision
No revision
1.1.2.1 +220 -0 embperl/test/html/Attic/div.htm-1
1.1.2.1 +250 -0 embperl/test/html/Attic/escape.htm-1
1.1.2.1 +368 -0 embperl/test/html/Attic/input.htm-1
1.1.2.1 +69 -0 embperl/test/html/Attic/object.htm-1
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
