richter 2004/11/13 08:47:08
Modified: . Changes.pod epmain.c test.pl
test/conf httpd.conf.src
Log:
- cgi tests
Revision Changes Path
1.256 +2 -2 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.255
retrieving revision 1.256
diff -u -r1.255 -r1.256
--- Changes.pod 7 Nov 2004 19:36:42 -0000 1.255
+++ Changes.pod 13 Nov 2004 16:47:08 -0000 1.256
@@ -1,13 +1,13 @@
=pod
-=head1 2.0rc2 06. November 2004
+=head1 2.0rc2 13. November 2004
- Flush output to client and send final chuck, before cleanup runs.
- Fix compiler error when compiling with Perl 5.005.
- Fix html input tag value set, when %fdat value is 0. Reported
by Torsten Luettgert.
- Fix test, for Apache 1.3 with static mod_perl and other dynamic
- modules, but loading Embperl first. Reported by Christophe Le Bars.
+ modules, by loading Embperl first. Reported by Christophe Le Bars.
- Fix FastCGI read of POST data, reported by Doug Rayner.
- Readded tests for CGI mode.
1.135 +7 -2 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.134
retrieving revision 1.135
diff -u -r1.134 -r1.135
--- epmain.c 31 Oct 2004 14:17:26 -0000 1.134
+++ epmain.c 13 Nov 2004 16:47:08 -0000 1.135
@@ -259,9 +259,14 @@
else
#endif
{
+ /*
PerlIO_printf (PerlIO_stderr(), "%s\n", sText) ;
- /* fflush (stderr) ; */
PerlIO_flush (PerlIO_stderr()) ;
+ */
+#undef fprintf
+#undef fflush
+ fprintf (stderr, "%s\n", sText) ;
+ fflush (stderr) ;
}
if (r)
1.148 +10 -2 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.147
retrieving revision 1.148
diff -u -r1.147 -r1.148
--- test.pl 7 Nov 2004 19:36:42 -0000 1.147
+++ test.pl 13 Nov 2004 16:47:08 -0000 1.148
@@ -72,9 +72,17 @@
},
'error.htm' => {
'repeat' => 3,
+ 'errors' => 5,
+ 'version' => 2,
+ 'cgi' => 1,
+ 'condition' => '!$MP2',
+ },
+ 'error.htm' => {
+ 'repeat' => 3,
'errors' => 6,
'version' => 2,
'cgi' => 1,
+ 'condition' => '$MP2',
},
'errormismatch.htm' => {
'errors' => '1',
@@ -2893,13 +2901,13 @@
@p = map { " $_ = $test->{$_}\n" } keys %$test if (ref ($test) eq
'HASH') ;
print "Testparameter:\n @p" if (@p) ;
}
- print "\n ERRORS detected! NOT all test have been passed
successfully\n\n" ;
+ print "\n ERRORS detected! NOT all tests have been passed
successfully\n\n" ;
}
else
{
if ($opt_modperl || $opt_cgi || $opt_offline || $opt_execute ||
$opt_cache || $opt_ep1)
{
- print "\nAll test have been passed successfully!\n\n" ;
+ print "\nAll tests have been passed successfully!\n\n" ;
}
elsif ($opt_start)
{
1.55 +3 -3 embperl/test/conf/httpd.conf.src
Index: httpd.conf.src
===================================================================
RCS file: /home/cvs/embperl/test/conf/httpd.conf.src,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -r1.54 -r1.55
--- httpd.conf.src 7 Nov 2004 19:36:42 -0000 1.54
+++ httpd.conf.src 13 Nov 2004 16:47:08 -0000 1.55
@@ -78,7 +78,7 @@
EMBPERL_INPUT_ESCMODE 7
ErrorLog tmp/httpd.err.log
-ScriptLog \"$EPPATH/test/tmp/httpd.script.log\"
+#ScriptLog \"$EPPATH/test/tmp/httpd.script.log\"
PidFile tmp/httpd.pid
EOD
@@ -527,7 +527,7 @@
Alias /fastcgi-bin/ \"$EPPATH/test/html/\"
Alias /fastcgi-bin2/ \"$EPPATH/test/html2/\"
Alias /fastcgi-bin-32/ \"$EPPATH/test/html/\"
-ScriptAlias /cgi/ \"$EPPATH/\"
+#ScriptAlias /cgi/ \"$EPPATH/\"
<Location /fastcgi-bin>
Action text/html /cgi/embpfastcgi.test.pl
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
