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

2001-04-11 Thread dougm 

dougm   01/04/11 15:54:48

  Added:   t/apache constants.t
  Log:
  test for Apache::Const
  
  Revision  ChangesPath
  1.1  modperl-2.0/t/apache/constants.t
  
  Index: constants.t
  ===
  use ExtUtils::testlib;
  use strict;
  use warnings FATAL = 'all';
  
  use Test;
  
  use Apache::Const -compile = qw(DECLINED :http :common TAKE23);
  use Apache::Const; #defaults to :common
  
  plan tests = 10;
  
  ok AUTH_REQUIRED == 401;
  ok OK == 0;
  ok Apache::OK == 0;
  ok Apache::DECLINED == -1;
  ok Apache::HTTP_GONE == 410;
  
  ok ! defined M_GET;
  Apache::Const-import('M_GET');
  ok defined M_GET;
  
  for (qw(BOGUS :bogus)) {
  eval { Apache::Const-import($_) };
  ok $@;
  }
  
  eval { Apache::Const-import('-foobar') };
  
  ok $@;

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

2001-04-11 Thread dougm 

dougm   01/04/11 16:02:59

  Modified:t/apache constants.t
  Log:
  test usage
  
  Revision  ChangesPath
  1.2   +4 -1  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.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- constants.t   2001/04/11 22:54:47 1.1
  +++ constants.t   2001/04/11 23:02:57 1.2
  @@ -7,7 +7,7 @@
   use Apache::Const -compile = qw(DECLINED :http :common TAKE23);
   use Apache::Const; #defaults to :common
   
  -plan tests = 10;
  +plan tests = 11;
   
   ok AUTH_REQUIRED == 401;
   ok OK == 0;
  @@ -28,3 +28,6 @@
   
   ok $@;
   
  +eval { Apache::Const::compile() };
  +
  +ok $@;