You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ge...@apache.org on 2003/10/01 22:03:11 UTC
cvs commit: modperl-2.0/t/apache constants.t
geoff 2003/10/01 13:03:11
Modified: t/apache constants.t
Log:
added Apache::CRLF, Apache::CR, and Apache::LF to
Apache::Const's :platform group
Reviewed by: stas
Revision Changes Path
1.7 +5 -2 modperl-2.0/t/apache/constants.t
Index: constants.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/apache/constants.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- constants.t 12 May 2003 13:00:15 -0000 1.6
+++ constants.t 1 Oct 2003 20:03:11 -0000 1.7
@@ -6,10 +6,10 @@
use Apache2 ();
use Apache::Const -compile => qw(DECLINED :http :common TAKE23 &OPT_EXECCGI
- DECLINE_CMD DIR_MAGIC_TYPE);
+ DECLINE_CMD DIR_MAGIC_TYPE CRLF);
use Apache::Const; #defaults to :common
-plan tests => 15;
+plan tests => 16;
ok REDIRECT == 302;
ok AUTH_REQUIRED == 401;
@@ -20,6 +20,9 @@
ok Apache::OPT_EXECCGI;
ok Apache::DECLINE_CMD eq "\x07\x08";
ok Apache::DIR_MAGIC_TYPE eq "httpd/unix-directory";
+# will fail on EBCDIC
+# kudos to mod_perl if someone actually reports it
+ok Apache::CRLF eq "\015\012";
ok ! defined &M_GET;
Apache::Const->import('M_GET');