Author: geoff Date: Mon Mar 7 18:01:14 2005 New Revision: 156475 URL: http://svn.apache.org/viewcvs?view=rev&rev=156475 Log: change *.t files to Apache2::
Modified: perl/modperl/branches/apache2-rename-unstable/t/apache/constants.t perl/modperl/branches/apache2-rename-unstable/t/api/custom_response.t perl/modperl/branches/apache2-rename-unstable/t/api/status.t perl/modperl/branches/apache2-rename-unstable/t/apr-ext/perlio.t perl/modperl/branches/apache2-rename-unstable/t/apr-ext/uuid.t perl/modperl/branches/apache2-rename-unstable/t/compat/request_body.t perl/modperl/branches/apache2-rename-unstable/t/hooks/trans.t perl/modperl/branches/apache2-rename-unstable/t/modperl/status.t perl/modperl/branches/apache2-rename-unstable/t/modules/apache_resource.t perl/modperl/branches/apache2-rename-unstable/t/modules/apache_status.t perl/modperl/branches/apache2-rename-unstable/t/modules/cgi.t perl/modperl/branches/apache2-rename-unstable/t/modules/cgi2.t perl/modperl/branches/apache2-rename-unstable/t/modules/cgiupload.t perl/modperl/branches/apache2-rename-unstable/t/modules/cgiupload2.t perl/modperl/branches/apache2-rename-unstable/t/modules/reload.t Modified: perl/modperl/branches/apache2-rename-unstable/t/apache/constants.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/apache/constants.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/apache/constants.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/apache/constants.t Mon Mar 7 18:01:14 2005 @@ -8,14 +8,14 @@ use Apache2 (); # -compile puts constants into the Apache:: namespace -use Apache::Const -compile => qw(:http :common :mpmq +use Apache2::Const -compile => qw(:http :common :mpmq TAKE23 &OPT_EXECCGI DECLINE_CMD DIR_MAGIC_TYPE CRLF); # without -compile, constants are in the # caller namespace. also defaults to :common -use Apache::Const; +use Apache2::Const; plan tests => 17; @@ -25,57 +25,57 @@ ok t_cmp(OK, 0, 'OK'); -ok t_cmp(Apache::OK, 0, 'Apache::OK'); +ok t_cmp(Apache2::OK, 0, 'Apache::OK'); -ok t_cmp(Apache::DECLINED, -1, 'Apache::DECLINED'); +ok t_cmp(Apache2::DECLINED, -1, 'Apache::DECLINED'); -ok t_cmp(Apache::HTTP_GONE, 410, 'Apache::HTTP_GONE'); +ok t_cmp(Apache2::HTTP_GONE, 410, 'Apache::HTTP_GONE'); -ok t_cmp(Apache::DIR_MAGIC_TYPE, +ok t_cmp(Apache2::DIR_MAGIC_TYPE, 'httpd/unix-directory', - 'Apache::DIR_MAGIC_TYPE'); + 'Apache2::DIR_MAGIC_TYPE'); -ok t_cmp(Apache::MPMQ_MAX_SPARE_DAEMONS, +ok t_cmp(Apache2::MPMQ_MAX_SPARE_DAEMONS, 9, - 'Apache::MPMQ_MAX_SPARE_DAEMONS'); + 'Apache2::MPMQ_MAX_SPARE_DAEMONS'); # the rest of the tests don't fit into the t_cmp() meme # for one reason or anothre... -print "testing Apache::OPT_EXECCGI is defined\n"; -ok defined Apache::OPT_EXECCGI; +print "testing Apache2::OPT_EXECCGI is defined\n"; +ok defined Apache2::OPT_EXECCGI; -print "testing Apache::DECLINE_CMD\n"; -ok Apache::DECLINE_CMD eq "\x07\x08"; +print "testing Apache2::DECLINE_CMD\n"; +ok Apache2::DECLINE_CMD eq "\x07\x08"; # try and weed out EBCDIC - this is the test httpd uses if (chr(0xC1) eq 'A') { - print "testing Apache::CRLF (EBCDIC)\n"; - ok Apache::CRLF eq "\r\n"; + print "testing Apache2::CRLF (EBCDIC)\n"; + ok Apache2::CRLF eq "\r\n"; } else { - print "testing Apache::CRLF (ASCII)\n"; - ok Apache::CRLF eq "\015\012"; + print "testing Apache2::CRLF (ASCII)\n"; + ok Apache2::CRLF eq "\015\012"; } print "testing M_GET not yet defined\n"; ok ! defined &M_GET; -Apache::Const->import('M_GET'); +Apache2::Const->import('M_GET'); print "testing M_GET now defined\n"; ok defined &M_GET; for (qw(BOGUS :bogus -foobar)) { - eval { Apache::Const->import($_) }; + eval { Apache2::Const->import($_) }; print "testing bogus import $_\n"; ok $@; } print "testing explicit call to compile()\n"; -eval { Apache::Const::compile() }; +eval { Apache2::Const::compile() }; ok $@; Modified: perl/modperl/branches/apache2-rename-unstable/t/api/custom_response.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/api/custom_response.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/api/custom_response.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/api/custom_response.t Mon Mar 7 18:01:14 2005 @@ -7,7 +7,7 @@ use File::Spec::Functions qw(catfile); -use Apache::Const -compile => qw(FORBIDDEN); +use Apache2::Const -compile => qw(FORBIDDEN); my $module = 'TestAPI::custom_response'; my $location = '/' . Apache::TestRequest::module2path($module); @@ -29,7 +29,7 @@ # custom text response my $expected = "This_is_a_custom_text_response"; my $res = GET "$location?$expected"; - ok t_cmp $res->code, Apache::FORBIDDEN, "custom text response (code)"; + ok t_cmp $res->code, Apache2::FORBIDDEN, "custom text response (code)"; ok t_cmp $res->content, $expected, "custom text response (body)"; } Modified: perl/modperl/branches/apache2-rename-unstable/t/api/status.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/api/status.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/api/status.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/api/status.t Mon Mar 7 18:01:14 2005 @@ -15,7 +15,7 @@ # test a valid HTTP/1.1 status code (303). In this test # the handler returns OK, but sets a custom status. Apache will # lookup the message "See Other" on its own - my $code = 303; # Apache::HTTP_SEE_OTHER + my $code = 303; # Apache2::HTTP_SEE_OTHER my $message = "See Other"; my $res = GET "$location?$code="; ok t_cmp $res->code, $code, "code"; Modified: perl/modperl/branches/apache2-rename-unstable/t/apr-ext/perlio.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/apr-ext/perlio.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/apr-ext/perlio.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/apr-ext/perlio.t Mon Mar 7 18:01:14 2005 @@ -9,7 +9,7 @@ use Apache::Test; use Apache::TestUtil; -use Apache::Build (); +use Apache2::Build (); use Fcntl (); use File::Spec::Functions qw(catfile); @@ -18,7 +18,7 @@ #XXX: you can set to zero if largefile support is not enabled in Perl use constant LARGE_FILES_CONFLICT => 1; -my $build = Apache::Build->build_config; +my $build = Apache2::Build->build_config; # XXX: only when apr-config is found APR will be linked against # libapr/libaprutil, probably need a more intuitive method for this Modified: perl/modperl/branches/apache2-rename-unstable/t/apr-ext/uuid.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/apr-ext/uuid.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/apr-ext/uuid.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/apr-ext/uuid.t Mon Mar 7 18:01:14 2005 @@ -4,7 +4,7 @@ use warnings FATAL => 'all'; use Apache::Test; -use Apache::Build (); +use Apache2::Build (); # XXX: only when apr-config is found APR will be linked against # libapr/libaprutil, probably need a more intuitive method for this @@ -14,7 +14,7 @@ # In order to do this for all the apr-ext tests, could have # a wrapper around plan() that does a check like ####### -# my $build = Apache::Build->build_config; +# my $build = Apache2::Build->build_config; # # my $has_apr_config = $build->{apr_config_path} && # !$build->httpd_is_source_tree; Modified: perl/modperl/branches/apache2-rename-unstable/t/compat/request_body.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/compat/request_body.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/compat/request_body.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/compat/request_body.t Mon Mar 7 18:01:14 2005 @@ -31,13 +31,13 @@ ); } -# $r->Apache::args +# $r->Apache2::args { my @data = (test => 'args'); ok t_cmp( GET_BODY(query(@data)), "@data", - q{$r->Apache::args} + q{$r->Apache2::args} ); } Modified: perl/modperl/branches/apache2-rename-unstable/t/hooks/trans.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/hooks/trans.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/hooks/trans.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/hooks/trans.t Mon Mar 7 18:01:14 2005 @@ -6,7 +6,7 @@ use Apache::TestRequest; use Apache2 (); -use Apache::Const ':common'; +use Apache2::Const ':common'; my $module = 'TestHooks::trans'; Apache::TestRequest::module($module); Modified: perl/modperl/branches/apache2-rename-unstable/t/modperl/status.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/modperl/status.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/modperl/status.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/modperl/status.t Mon Mar 7 18:01:14 2005 @@ -6,7 +6,7 @@ use Apache::TestUtil qw(t_cmp t_server_log_error_is_expected); use Apache2; -use Apache::Const -compile => qw(OK DECLINED +use Apache2::Const -compile => qw(OK DECLINED NOT_FOUND SERVER_ERROR FORBIDDEN HTTP_OK); @@ -16,49 +16,49 @@ # valid Apache return codes { - my $uri = join '?', $base, Apache::OK; + my $uri = join '?', $base, Apache2::OK; my $code = GET_RC $uri; ok t_cmp($code, - Apache::HTTP_OK, + Apache2::HTTP_OK, $uri); } { - my $uri = join '?', $base, Apache::DECLINED; + my $uri = join '?', $base, Apache2::DECLINED; my $code = GET_RC $uri; # no Alias to map us to DocumentRoot ok t_cmp($code, - Apache::NOT_FOUND, + Apache2::NOT_FOUND, $uri); } # standard HTTP status codes { - my $uri = join '?', $base, Apache::NOT_FOUND; + my $uri = join '?', $base, Apache2::NOT_FOUND; my $code = GET_RC $uri; ok t_cmp($code, - Apache::NOT_FOUND, + Apache2::NOT_FOUND, $uri); } { - my $uri = join '?', $base, Apache::FORBIDDEN; + my $uri = join '?', $base, Apache2::FORBIDDEN; my $code = GET_RC $uri; ok t_cmp($code, - Apache::FORBIDDEN, + Apache2::FORBIDDEN, $uri); } { - my $uri = join '?', $base, Apache::SERVER_ERROR; + my $uri = join '?', $base, Apache2::SERVER_ERROR; my $code = GET_RC $uri; ok t_cmp($code, - Apache::SERVER_ERROR, + Apache2::SERVER_ERROR, $uri); } @@ -69,7 +69,7 @@ my $code = GET_RC $uri; ok t_cmp($code, - Apache::SERVER_ERROR, + Apache2::SERVER_ERROR, $uri); } @@ -78,7 +78,7 @@ my $code = GET_RC $uri; ok t_cmp($code, - Apache::SERVER_ERROR, + Apache2::SERVER_ERROR, $uri); } @@ -87,7 +87,7 @@ my $code = GET_RC $uri; ok t_cmp($code, - Apache::SERVER_ERROR, + Apache2::SERVER_ERROR, $uri); } @@ -96,11 +96,11 @@ # succeed so the 200 is propagated to the client, # there's an error beneath that 200 code. { - my $uri = join '?', $base, Apache::HTTP_OK; + my $uri = join '?', $base, Apache2::HTTP_OK; my $response = GET $uri; ok t_cmp($response->code, - Apache::HTTP_OK, + Apache2::HTTP_OK, $uri); ok t_cmp($response->content, @@ -115,7 +115,7 @@ my $code = GET_RC $uri; ok t_cmp($code, - Apache::HTTP_OK, + Apache2::HTTP_OK, $uri); } @@ -125,7 +125,7 @@ my $code = GET_RC $uri; ok t_cmp($code, - Apache::SERVER_ERROR, + Apache2::SERVER_ERROR, $uri); } @@ -134,7 +134,7 @@ my $code = GET_RC $uri; ok t_cmp($code, - Apache::HTTP_OK, + Apache2::HTTP_OK, $uri); } @@ -143,7 +143,7 @@ my $code = GET_RC $uri; ok t_cmp($code, - Apache::HTTP_OK, + Apache2::HTTP_OK, $uri); } @@ -152,7 +152,7 @@ my $code = GET_RC $uri; ok t_cmp($code, - Apache::HTTP_OK, + Apache2::HTTP_OK, $uri); } Modified: perl/modperl/branches/apache2-rename-unstable/t/modules/apache_resource.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/modules/apache_resource.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/modules/apache_resource.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/modules/apache_resource.t Mon Mar 7 18:01:14 2005 @@ -6,12 +6,12 @@ use Apache::TestUtil; plan tests => 1, need qw[BSD::Resource], - { "CGI.pm (2.93 or higher) or Apache::Request is needed" => + { "CGI.pm (2.93 or higher) or Apache2::Request is needed" => !!(eval { require CGI && $CGI::VERSION >= 2.93 } || - eval { require Apache::Request })}; + eval { require Apache2::Request })}; { - # Apache::Status menu inserted by Apache::Resource + # Apache2::Status menu inserted by Apache::Resource my $url = '/status/perl?rlimit'; my $body = GET_BODY_ASSERT $url; ok $body =~ /RLIMIT_CPU/; @@ -20,6 +20,6 @@ # more tests would be nice, but I'm not sure how to write those w/o # causing problems to the rest of the test suite. # we could enable $ENV{PERL_RLIMIT_DEFAULTS} = 1; before loading -# Apache::Resource, which sets certain default values (works for me) +# Apache2::Resource, which sets certain default values (works for me) # but it's not guaranteed that it'll work for others (since it's very # OS specific) Modified: perl/modperl/branches/apache2-rename-unstable/t/modules/apache_status.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/modules/apache_status.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/modules/apache_status.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/modules/apache_status.t Mon Mar 7 18:01:14 2005 @@ -11,9 +11,9 @@ symdump inc inh_tree sig); plan tests => @opts + 3, need - { "CGI.pm (2.93 or higher) or Apache::Request is needed" => + { "CGI.pm (2.93 or higher) or Apache2::Request is needed" => !!(eval { require CGI && $CGI::VERSION >= 2.93 } || - eval { require Apache::Request })}; + eval { require Apache2::Request })}; { my $url = "$base_url"; Modified: perl/modperl/branches/apache2-rename-unstable/t/modules/cgi.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/modules/cgi.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/modules/cgi.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/modules/cgi.t Mon Mar 7 18:01:14 2005 @@ -4,9 +4,9 @@ use Apache::Test; use Apache::TestRequest; use Apache::TestUtil; -use Apache::Build (); +use Apache2::Build (); -my $build = Apache::Build->build_config; +my $build = Apache2::Build->build_config; use constant HAVE_LWP => have_lwp(); Modified: perl/modperl/branches/apache2-rename-unstable/t/modules/cgi2.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/modules/cgi2.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/modules/cgi2.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/modules/cgi2.t Mon Mar 7 18:01:14 2005 @@ -4,9 +4,9 @@ use Apache::Test; use Apache::TestRequest; use Apache::TestUtil; -use Apache::Build (); +use Apache2::Build (); -my $build = Apache::Build->build_config; +my $build = Apache2::Build->build_config; use constant HAVE_LWP => have_lwp(); Modified: perl/modperl/branches/apache2-rename-unstable/t/modules/cgiupload.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/modules/cgiupload.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/modules/cgiupload.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/modules/cgiupload.t Mon Mar 7 18:01:14 2005 @@ -4,11 +4,11 @@ use Apache::Test; use Apache::TestUtil; use Apache::TestRequest; -use Apache::Build (); +use Apache2::Build (); use File::Spec::Functions qw(catfile); -my $build = Apache::Build->build_config; +my $build = Apache2::Build->build_config; plan tests => 2, need need_lwp(), need need_min_module_version('CGI', 2.93), {"MP_COMPAT_1X is disabled" => $build->{MP_COMPAT_1X}}; Modified: perl/modperl/branches/apache2-rename-unstable/t/modules/cgiupload2.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/modules/cgiupload2.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/modules/cgiupload2.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/modules/cgiupload2.t Mon Mar 7 18:01:14 2005 @@ -4,11 +4,11 @@ use Apache::Test; use Apache::TestUtil; use Apache::TestRequest; -use Apache::Build (); +use Apache2::Build (); use File::Spec::Functions qw(catfile); -my $build = Apache::Build->build_config; +my $build = Apache2::Build->build_config; plan tests => 2, need need_lwp(), need_min_module_version(CGI => 3.01); Modified: perl/modperl/branches/apache2-rename-unstable/t/modules/reload.t URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/modules/reload.t?view=diff&r1=156474&r2=156475 ============================================================================== --- perl/modperl/branches/apache2-rename-unstable/t/modules/reload.t (original) +++ perl/modperl/branches/apache2-rename-unstable/t/modules/reload.t Mon Mar 7 18:01:14 2005 @@ -85,15 +85,15 @@ sub touch_mtime { my $file = shift; # push the mtime into the future (at least 2 secs to work on win32) - # so Apache::Reload will reload the package + # so Apache2::Reload will reload the package my $time = time + 5; # make it 5 to be sure utime $time, $time, $file; } __DATA__ -package Apache::Reload::Test; +package Apache2::Reload::Test; -use Apache::Reload; +use Apache2::Reload; our @methods = qw(simple const prototype);