cvs commit: modperl-2.0/t/apache constants.t
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 $@;
cvs commit: modperl-2.0/t/apache constants.t
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 $@;