cvs commit: modperl-2.0/t/apache constants.t

[geoff]

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');