geoff 2004/08/03 09:16:25
Modified: t/api content_encoding.t
t/apr-ext perlio.t uuid.t
t/compat conn_authen.t
t/directive perl.t
t/filter both_str_req_add.t both_str_req_mix.t
both_str_req_proxy.t
t/hooks authen.t authz.t push_handlers.t
t/hooks/TestHooks push_handlers_blessed.pm
t/modperl print_utf8.t print_utf8_2.t
request_rec_perlio_api.t setupenv.t
t/modules apache_status.t cgi.t cgi2.t cgipost.t cgipost2.t
cgiupload.t cgiupload2.t proxy.t
t/perl hash_attack.t ithreads.t ithreads2.t
t/protocol eliza.t pseudo_http.t
t/response/TestAPR perlio.pm threadmutex.pm
t/response/TestModperl post_utf8.pm request_rec_tie_api.pm
t/response/TestPerl api.pm ithreads.pm
ModPerl-Registry/t cgi.t flush.t redirect.t
Log:
s/have/need/g
Revision Changes Path
1.3 +1 -1 modperl-2.0/t/api/content_encoding.t
Index: content_encoding.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/api/content_encoding.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- content_encoding.t 23 Jul 2004 23:46:59 -0000 1.2
+++ content_encoding.t 3 Aug 2004 16:16:18 -0000 1.3
@@ -5,7 +5,7 @@
use Apache::TestRequest;
use Apache::TestUtil;
-plan tests => 1, have_min_module_version("Compress::Zlib", "1.09");
+plan tests => 1, need_min_module_version("Compress::Zlib", "1.09");
my $location = '/TestAPI__content_encoding';
1.7 +1 -1 modperl-2.0/t/apr-ext/perlio.t
Index: perlio.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/apr-ext/perlio.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- perlio.t 8 Jul 2004 06:13:34 -0000 1.6
+++ perlio.t 3 Aug 2004 16:16:19 -0000 1.7
@@ -43,7 +43,7 @@
$tests += $lfs_tests unless LARGE_FILES_CONFLICT;
require APR; require APR::PerlIO;
plan tests => $tests,
- have {"this build couldn't find apr-config" => $has_apr_config,
+ need {"this build couldn't find apr-config" => $has_apr_config,
"this build doesn't support PerlIO layers" => $has_perlio_layers,
};
1.5 +1 -1 modperl-2.0/t/apr-ext/uuid.t
Index: uuid.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/apr-ext/uuid.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- uuid.t 15 Jul 2004 16:14:30 -0000 1.4
+++ uuid.t 3 Aug 2004 16:16:19 -0000 1.5
@@ -20,7 +20,7 @@
# my $has_apr_config = $build->{apr_config_path} &&
# !$build->httpd_is_source_tree;
# plan tests => TestAPRlib::uuid::num_of_tests(),
-# have {"the build couldn't find apr-config" => $has_apr_config};
+# need {"the build couldn't find apr-config" => $has_apr_config};
######
# that is called from some TestAPRlib::common.
1.5 +1 -1 modperl-2.0/t/compat/conn_authen.t
Index: conn_authen.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/compat/conn_authen.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- conn_authen.t 8 Jul 2004 07:39:03 -0000 1.4
+++ conn_authen.t 3 Aug 2004 16:16:19 -0000 1.5
@@ -4,7 +4,7 @@
use Apache::Test;
use Apache::TestRequest;
-plan tests => 1, have_lwp && have_auth;
+plan tests => 1, need_lwp && need_auth;
my $location = "/TestCompat__conn_authen";
1.5 +1 -1 modperl-2.0/t/directive/perl.t
Index: perl.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/directive/perl.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- perl.t 8 Jul 2004 07:40:56 -0000 1.4
+++ perl.t 3 Aug 2004 16:16:19 -0000 1.5
@@ -4,7 +4,7 @@
use Apache::Test;
use Apache::TestRequest;
-plan tests => 8, have_auth;
+plan tests => 8, need_auth;
#so we don't have to require lwp
my @auth = (Authorization => 'Basic ZG91Z206Zm9v'); #dougm:foo
1.6 +1 -1 modperl-2.0/t/filter/both_str_req_add.t
Index: both_str_req_add.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/both_str_req_add.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- both_str_req_add.t 9 Jul 2004 15:52:26 -0000 1.5
+++ both_str_req_add.t 3 Aug 2004 16:16:19 -0000 1.6
@@ -5,7 +5,7 @@
use Apache::TestRequest;
use Apache::TestUtil;
-plan tests => 1, have_min_module_version('B::Deparse', 0.6);
+plan tests => 1, need_min_module_version('B::Deparse', 0.6);
my $data = join ' ', 'A'..'Z', 0..9;
my $expected = lc $data; # that's what the input filter does
1.6 +2 -2 modperl-2.0/t/filter/both_str_req_mix.t
Index: both_str_req_mix.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/both_str_req_mix.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- both_str_req_mix.t 9 Jul 2004 15:52:26 -0000 1.5
+++ both_str_req_mix.t 3 Aug 2004 16:16:19 -0000 1.6
@@ -5,8 +5,8 @@
use Apache::TestRequest;
use Apache::TestUtil;
-plan tests => 1, have 'deflate', 'include',
- have_min_module_version("Compress::Zlib", "1.09");
+plan tests => 1, need 'deflate', 'include',
+ need_min_module_version("Compress::Zlib", "1.09");
require Compress::Zlib;
my $location = '/TestFilter__both_str_req_mix';
1.3 +1 -1 modperl-2.0/t/filter/both_str_req_proxy.t
Index: both_str_req_proxy.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/both_str_req_proxy.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- both_str_req_proxy.t 9 Jul 2004 15:52:26 -0000 1.2
+++ both_str_req_proxy.t 3 Aug 2004 16:16:20 -0000 1.3
@@ -5,7 +5,7 @@
use Apache::TestRequest;
use Apache::TestUtil;
-plan tests => 1, (have_module('proxy') && have_access);
+plan tests => 1, (need_module('proxy') && need_access);
my $data = join ' ', 'A'..'Z', 0..9;
my $expected = lc $data; # that's what the input filter does
1.8 +1 -1 modperl-2.0/t/hooks/authen.t
Index: authen.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/hooks/authen.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- authen.t 8 Jul 2004 07:39:04 -0000 1.7
+++ authen.t 3 Aug 2004 16:16:20 -0000 1.8
@@ -4,7 +4,7 @@
use Apache::Test;
use Apache::TestRequest;
-plan tests => 4, have_lwp && have_auth;
+plan tests => 4, need_lwp && need_auth;
my $location = "/TestHooks__authen";
1.4 +1 -1 modperl-2.0/t/hooks/authz.t
Index: authz.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/hooks/authz.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- authz.t 8 Jul 2004 07:40:56 -0000 1.3
+++ authz.t 3 Aug 2004 16:16:20 -0000 1.4
@@ -4,7 +4,7 @@
use Apache::Test;
use Apache::TestRequest;
-plan tests => 4, have_lwp;
+plan tests => 4, need_lwp;
my $location = "/TestHooks__authz";
1.7 +1 -1 modperl-2.0/t/hooks/push_handlers.t
Index: push_handlers.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/hooks/push_handlers.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- push_handlers.t 9 Jul 2004 16:02:43 -0000 1.6
+++ push_handlers.t 3 Aug 2004 16:16:20 -0000 1.7
@@ -5,7 +5,7 @@
use Apache::TestUtil;
use Apache::TestRequest;
-plan tests => 1, have_min_module_version('B::Deparse', 0.6);
+plan tests => 1, need_min_module_version('B::Deparse', 0.6);
my @refs = qw(conf conf1 conf2 coderef
full_coderef coderef1 coderef2 coderef3);
1.2 +1 -1 modperl-2.0/t/hooks/TestHooks/push_handlers_blessed.pm
Index: push_handlers_blessed.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/push_handlers_blessed.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- push_handlers_blessed.pm 14 Feb 2004 23:22:07 -0000 1.1
+++ push_handlers_blessed.pm 3 Aug 2004 16:16:21 -0000 1.2
@@ -19,7 +19,7 @@
sub handler {
my $r = shift;
- plan $r, tests => 1, have_min_module_version('B::Deparse', 0.61);;
+ plan $r, tests => 1, need_min_module_version('B::Deparse', 0.61);;
my $sub = sub {
ok 1;
1.4 +1 -1 modperl-2.0/t/modperl/print_utf8.t
Index: print_utf8.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modperl/print_utf8.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- print_utf8.t 9 Jul 2004 18:53:01 -0000 1.3
+++ print_utf8.t 3 Aug 2004 16:16:21 -0000 1.4
@@ -8,7 +8,7 @@
# utf encode/decode was added only in 5.8.0
# XXX: currently binmode is only available with perlio (used on the
# server side on the tied/perlio STDOUT)
-plan tests => 1, have have_min_perl_version(5.008), have_perl('perlio');
+plan tests => 1, need need_min_perl_version(5.008), need_perl('perlio');
my $location = "/TestModperl__print_utf8";
my $expected = "Hello Ayhan \x{263A} perlio rules!";
1.3 +1 -1 modperl-2.0/t/modperl/print_utf8_2.t
Index: print_utf8_2.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modperl/print_utf8_2.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- print_utf8_2.t 9 Jul 2004 18:53:01 -0000 1.2
+++ print_utf8_2.t 3 Aug 2004 16:16:21 -0000 1.3
@@ -9,7 +9,7 @@
# utf encode/decode was added only in 5.8.0
# perlio is needed only for the client side, because it calls binmode(STDOUT,
':utf8');
-plan tests => 1, have_min_perl_version(5.008);
+plan tests => 1, need_min_perl_version(5.008);
my $location = "/TestModperl__print_utf8_2";
my $expected = "\$r->print() just works \x{263A}";
1.5 +1 -1 modperl-2.0/t/modperl/request_rec_perlio_api.t
Index: request_rec_perlio_api.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modperl/request_rec_perlio_api.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- request_rec_perlio_api.t 9 Jul 2004 18:53:01 -0000 1.4
+++ request_rec_perlio_api.t 3 Aug 2004 16:16:21 -0000 1.5
@@ -9,7 +9,7 @@
my $uri = "/TestModperl__request_rec_perlio_api";
-plan tests => 2, have { "perl $]: TIEd IO is used instead of PerlIO"
+plan tests => 2, need { "perl $]: TIEd IO is used instead of PerlIO"
=> ($] >= 5.008 && $Config{useperlio}) };
1.3 +1 -1 modperl-2.0/t/modperl/setupenv.t
Index: setupenv.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modperl/setupenv.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- setupenv.t 9 Mar 2004 00:18:04 -0000 1.2
+++ setupenv.t 3 Aug 2004 16:16:21 -0000 1.3
@@ -32,7 +32,7 @@
# this requires keepalives and a per-connection interpreter
# to make certain we can plan in one request and test in another
# which requires LWP
-unless (have_lwp()) {
+unless (need_lwp()) {
plan tests => 63, 0;
}
1.4 +1 -1 modperl-2.0/t/modules/apache_status.t
Index: apache_status.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/apache_status.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- apache_status.t 22 Nov 2003 21:37:14 -0000 1.3
+++ apache_status.t 3 Aug 2004 16:16:22 -0000 1.4
@@ -10,7 +10,7 @@
my @opts = qw(script myconfig rgysubs section_config env isa_tree
symdump inc inh_tree sig);
-plan tests => @opts + 1, have
+plan tests => @opts + 1, need
{ "CGI.pm (2.93 or higher) or Apache::Request is needed" =>
!!(eval { require CGI && $CGI::VERSION >= 2.93 } ||
eval { require Apache::Request })};
1.14 +1 -1 modperl-2.0/t/modules/cgi.t
Index: cgi.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgi.t,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- cgi.t 9 Jul 2004 19:09:55 -0000 1.13
+++ cgi.t 3 Aug 2004 16:16:22 -0000 1.14
@@ -13,7 +13,7 @@
my $tests = 4;
$tests += 1 if HAVE_LWP;
-plan tests => $tests, have have_min_module_version('CGI', 2.93),
+plan tests => $tests, need need_min_module_version('CGI', 2.93),
{"MP_COMPAT_1X is disabled" => $build->{MP_COMPAT_1X}};
my $module = 'TestModules::cgi';
1.4 +2 -2 modperl-2.0/t/modules/cgi2.t
Index: cgi2.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgi2.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- cgi2.t 9 Jul 2004 19:09:55 -0000 1.3
+++ cgi2.t 3 Aug 2004 16:16:22 -0000 1.4
@@ -13,8 +13,8 @@
my $tests = 4;
$tests += 1 if HAVE_LWP;
-plan tests => $tests, have
- have_min_module_version(CGI => 3.01);
+plan tests => $tests, need
+ need_min_module_version(CGI => 3.01);
my $module = 'TestModules::cgi2';
my $location = '/' . Apache::TestRequest::module2path($module);
1.2 +1 -1 modperl-2.0/t/modules/cgipost.t
Index: cgipost.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgipost.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- cgipost.t 7 Nov 2003 08:51:57 -0000 1.1
+++ cgipost.t 3 Aug 2004 16:16:22 -0000 1.2
@@ -10,7 +10,7 @@
my @data = (25, 50, 75, 100, 125, 150);
-plan tests => scalar(@data), have_min_module_version(CGI => 2.93);
+plan tests => scalar(@data), need_min_module_version(CGI => 2.93);
foreach my $post (@data) {
my %param = ();
1.2 +1 -1 modperl-2.0/t/modules/cgipost2.t
Index: cgipost2.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgipost2.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- cgipost2.t 7 Nov 2003 08:52:44 -0000 1.1
+++ cgipost2.t 3 Aug 2004 16:16:22 -0000 1.2
@@ -10,7 +10,7 @@
my @data = (25, 50, 75, 100, 125, 150);
-plan tests => scalar(@data), have_min_module_version(CGI => 3.01);
+plan tests => scalar(@data), need_min_module_version(CGI => 3.01);
foreach my $post (@data) {
my %param = ();
1.11 +1 -1 modperl-2.0/t/modules/cgiupload.t
Index: cgiupload.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgiupload.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- cgiupload.t 23 Feb 2004 02:07:32 -0000 1.10
+++ cgiupload.t 3 Aug 2004 16:16:22 -0000 1.11
@@ -9,7 +9,7 @@
use File::Spec::Functions qw(catfile);
my $build = Apache::Build->build_config;
-plan tests => 2, have have_lwp(), have have_min_module_version('CGI', 2.93),
+plan tests => 2, need need_lwp(), need need_min_module_version('CGI', 2.93),
{"MP_COMPAT_1X is disabled" => $build->{MP_COMPAT_1X}};
my $location = "/TestModules__cgiupload";
1.3 +2 -2 modperl-2.0/t/modules/cgiupload2.t
Index: cgiupload2.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgiupload2.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cgiupload2.t 23 Feb 2004 02:07:32 -0000 1.2
+++ cgiupload2.t 3 Aug 2004 16:16:22 -0000 1.3
@@ -9,8 +9,8 @@
use File::Spec::Functions qw(catfile);
my $build = Apache::Build->build_config;
-plan tests => 2, have have_lwp(),
- have_min_module_version(CGI => 3.01);
+plan tests => 2, need need_lwp(),
+ need_min_module_version(CGI => 3.01);
my $location = "/TestModules__cgiupload2";
1.4 +2 -2 modperl-2.0/t/modules/proxy.t
Index: proxy.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/proxy.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- proxy.t 9 Jul 2004 19:09:55 -0000 1.3
+++ proxy.t 3 Aug 2004 16:16:22 -0000 1.4
@@ -8,8 +8,8 @@
my $location = "/TestModules__proxy";
-plan tests => 1, (have_module('proxy') &&
- have_access);
+plan tests => 1, (need_module('proxy') &&
+ need_access);
my $expected = "ok";
my $received = GET_BODY_ASSERT $location;
1.2 +1 -1 modperl-2.0/t/perl/hash_attack.t
Index: hash_attack.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/perl/hash_attack.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- hash_attack.t 3 Nov 2003 09:29:49 -0000 1.1
+++ hash_attack.t 3 Aug 2004 16:16:22 -0000 1.2
@@ -8,7 +8,7 @@
use Apache::TestRequest 'GET_BODY_ASSERT';
plan tests => 1,
- have { "relevant only for perl 5.8.2 and higher" => ($] >= 5.008002) };
+ need { "relevant only for perl 5.8.2 and higher" => ($] >= 5.008002) };
my $expected = "ok";
my $received = GET_BODY_ASSERT "/TestPerl__hash_attack";
1.3 +1 -1 modperl-2.0/t/perl/ithreads.t
Index: ithreads.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/perl/ithreads.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- ithreads.t 6 Aug 2003 22:42:44 -0000 1.2
+++ ithreads.t 3 Aug 2004 16:16:23 -0000 1.3
@@ -9,7 +9,7 @@
# perl < 5.6.0 fails to compile code with 'shared' attributes, so we must skip
# it here.
unless ($] >= 5.008001 && $Config{useithreads}) {
- plan tests => 1, have
+ plan tests => 1, need
{"perl 5.8.1 or higher w/ithreads enabled is required" => 0};
}
1.3 +1 -1 modperl-2.0/t/perl/ithreads2.t
Index: ithreads2.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/perl/ithreads2.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- ithreads2.t 6 Aug 2003 22:42:44 -0000 1.2
+++ ithreads2.t 3 Aug 2004 16:16:23 -0000 1.3
@@ -14,7 +14,7 @@
# perl < 5.6.0 fails to compile code with 'shared' attributes, so we must skip
# it here.
unless ($] >= 5.008001 && $Config{useithreads}) {
- plan tests => 1, have
+ plan tests => 1, need
{"perl 5.8.1 or higher w/ithreads enabled is required" => 0};
}
1.6 +1 -1 modperl-2.0/t/protocol/eliza.t
Index: eliza.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/protocol/eliza.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- eliza.t 14 Jun 2002 10:06:16 -0000 1.5
+++ eliza.t 3 Aug 2004 16:16:23 -0000 1.6
@@ -11,7 +11,7 @@
'I feel like writing some tests today, what about you?',
'Good bye, Eliza');
-plan tests => 2 + @test_strings, have_module 'Chatbot::Eliza';
+plan tests => 2 + @test_strings, need_module 'Chatbot::Eliza';
my $socket = Apache::TestRequest::vhost_socket('TestProtocol::eliza');
1.3 +1 -1 modperl-2.0/t/protocol/pseudo_http.t
Index: pseudo_http.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/protocol/pseudo_http.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- pseudo_http.t 6 Jul 2004 15:49:13 -0000 1.2
+++ pseudo_http.t 3 Aug 2004 16:16:23 -0000 1.3
@@ -18,7 +18,7 @@
my $passgood = "foobar";
my $passbad = "foObaR";
-plan tests => 13, have_auth && have_access;
+plan tests => 13, need_auth && need_access;
{
# supply correct credential when prompted for such and ask the
1.28 +1 -1 modperl-2.0/t/response/TestAPR/perlio.pm
Index: perlio.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/perlio.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- perlio.pm 8 Jul 2004 06:06:33 -0000 1.27
+++ perlio.pm 3 Aug 2004 16:16:23 -0000 1.28
@@ -34,7 +34,7 @@
require APR::PerlIO;
plan $r, tests => $tests,
- have { "This Perl build doesn't support PerlIO layers" =>
+ need { "This Perl build doesn't support PerlIO layers" =>
APR::PerlIO::PERLIO_LAYERS_ARE_ENABLED() };
my $vars = Apache::Test::config()->{vars};
1.6 +1 -1 modperl-2.0/t/response/TestAPR/threadmutex.pm
Index: threadmutex.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/threadmutex.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- threadmutex.pm 15 Jul 2004 15:30:24 -0000 1.5
+++ threadmutex.pm 3 Aug 2004 16:16:23 -0000 1.6
@@ -14,7 +14,7 @@
my $r = shift;
my $tests = TestAPRlib::threadmutex::num_of_tests();
- plan $r, tests => $tests, have_threads;
+ plan $r, tests => $tests, need_threads;
TestAPRlib::threadmutex::test();
1.5 +1 -1 modperl-2.0/t/response/TestModperl/post_utf8.pm
Index: post_utf8.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/post_utf8.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- post_utf8.pm 9 Jul 2004 18:53:01 -0000 1.4
+++ post_utf8.pm 3 Aug 2004 16:16:23 -0000 1.5
@@ -31,7 +31,7 @@
# XXX: currently binmode is only available with perlio (used on the
# server side on the tied/perlio STDOUT)
plan $r, tests => 2,
- have have_min_perl_version(5.008), have_perl('perlio');
+ need need_min_perl_version(5.008), need_perl('perlio');
my $received = ModPerl::Test::read_post($r) || "";
# assume that we know that it's utf8
1.6 +1 -1 modperl-2.0/t/response/TestModperl/request_rec_tie_api.pm
Index: request_rec_tie_api.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/request_rec_tie_api.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- request_rec_tie_api.pm 9 Jul 2004 18:53:01 -0000 1.5
+++ request_rec_tie_api.pm 3 Aug 2004 16:16:23 -0000 1.6
@@ -25,7 +25,7 @@
my @todo;
push @todo, 1 if Apache::Build::AIX();
plan $r, tests => 3, todo => [EMAIL PROTECTED],
- have { "perl $]: PerlIO is used instead of TIEd IO"
+ need { "perl $]: PerlIO is used instead of TIEd IO"
=> !($] >= 5.008 && $Config{useperlio}) };
# XXX: on AIX 4.3.3 we get:
1.6 +1 -1 modperl-2.0/t/response/TestPerl/api.pm
Index: api.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestPerl/api.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- api.pm 27 Oct 2003 21:14:32 -0000 1.5
+++ api.pm 3 Aug 2004 16:16:24 -0000 1.6
@@ -17,7 +17,7 @@
my $r = shift;
plan $r, tests => 2,
- have { "getppid() is not implemented on Win32"
+ need { "getppid() is not implemented on Win32"
=> !Apache::Build::WIN32() };
{
1.10 +2 -2 modperl-2.0/t/response/TestPerl/ithreads.pm
Index: ithreads.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestPerl/ithreads.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- ithreads.pm 9 Jul 2004 21:25:24 -0000 1.9
+++ ithreads.pm 3 Aug 2004 16:16:24 -0000 1.10
@@ -17,8 +17,8 @@
sub handler {
my $r = shift;
- plan $r, tests => 4, have
- have_threads,
+ plan $r, tests => 4,need
+ need_threads,
{"perl >= 5.8.1 is required (this is $])" => ($] >= 5.008001)};
# threads must have been preloaded at the server startup for this
1.4 +1 -1 modperl-2.0/ModPerl-Registry/t/cgi.t
Index: cgi.t
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- cgi.t 3 Jul 2004 18:45:45 -0000 1.3
+++ cgi.t 3 Aug 2004 16:16:24 -0000 1.4
@@ -5,7 +5,7 @@
use Apache::TestUtil;
use Apache::TestRequest qw(GET);
-plan tests => 2, have_min_module_version CGI => 2.87;
+plan tests => 2, need_min_module_version CGI => 2.87;
my $url = "/registry/cgi.pl";
my $res = GET $url;
1.5 +3 -3 modperl-2.0/ModPerl-Registry/t/flush.t
Index: flush.t
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/flush.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- flush.t 11 Jul 2004 04:29:26 -0000 1.4
+++ flush.t 3 Aug 2004 16:16:24 -0000 1.5
@@ -5,9 +5,9 @@
use Apache::TestUtil;
use Apache::TestRequest qw(GET_BODY);
-plan tests => 1, have 'deflate',
- have_min_module_version("Compress::Zlib", "1.09"),
- have_min_apache_version("2.0.48");
+plan tests => 1, need 'deflate',
+ need_min_module_version("Compress::Zlib", "1.09"),
+ need_min_apache_version("2.0.48");
# it requires httpd 2.0.48 because of the bug in mod_deflate:
# http://nagoya.apache.org/bugzilla/show_bug.cgi?id=22259
1.9 +1 -1 modperl-2.0/ModPerl-Registry/t/redirect.t
Index: redirect.t
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/redirect.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- redirect.t 11 Jul 2004 04:29:26 -0000 1.8
+++ redirect.t 3 Aug 2004 16:16:24 -0000 1.9
@@ -7,7 +7,7 @@
use Apache::TestUtil qw(t_catfile_apache);
-plan tests => 4, have_lwp;
+plan tests => 4, need_lwp;
# need LWP to handle redirects
my $base_url = "/registry/redirect.pl";
