perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/apache constants.t
Date Wed, 11 Apr 2001 22:54:48 GMT
dougm       01/04/11 15:54:48

  Added:       t/apache constants.t
  Log:
  test for Apache::Const
  
  Revision  Changes    Path
  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 $@;
  
  
  
  

Mime
View raw message