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 $@;