diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-08 08:45:35 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-08 08:45:35 +0000 |
commit | 5fc0f0f6e90f423ffa278e3f31f7021206604ee9 (patch) | |
tree | 5b2e1c273398658ee95394052bd8fd53b1c2f75e /lib/CPAN/t | |
parent | 9c36735de2bc373cab0c4275429b13fc1c754d20 (diff) | |
download | perl-5fc0f0f6e90f423ffa278e3f31f7021206604ee9.tar.gz |
Upgrade to CPAN 1.64, from Andreas Koenig.
p4raw-id: //depot/perl@18672
Diffstat (limited to 'lib/CPAN/t')
-rw-r--r-- | lib/CPAN/t/Nox.t | 9 | ||||
-rw-r--r-- | lib/CPAN/t/loadme.t | 5 | ||||
-rw-r--r-- | lib/CPAN/t/mirroredby.t | 1 | ||||
-rw-r--r-- | lib/CPAN/t/vcmp.t | 5 |
4 files changed, 5 insertions, 15 deletions
diff --git a/lib/CPAN/t/Nox.t b/lib/CPAN/t/Nox.t index 3d5565b157..4006771081 100644 --- a/lib/CPAN/t/Nox.t +++ b/lib/CPAN/t/Nox.t @@ -1,14 +1,13 @@ #!./perl -BEGIN { - chdir 't' if -d 't'; - @INC = '../lib'; -} - +use lib "BUNDLE"; use Test::More tests => 8; # use this first to $CPAN::term can be undefined use_ok( 'CPAN' ); +$CPAN::Suppress_readline = $CPAN::Suppress_readline; # silence +$CPAN::META = $CPAN::META; # silence +$CPAN::term = $CPAN::term; # silence undef $CPAN::term; # this kicks off all the magic diff --git a/lib/CPAN/t/loadme.t b/lib/CPAN/t/loadme.t index dce7e1081d..fd0b67989d 100644 --- a/lib/CPAN/t/loadme.t +++ b/lib/CPAN/t/loadme.t @@ -1,11 +1,6 @@ #!/usr/bin/perl -w BEGIN { - chdir 't' if -d 't'; - @INC = '../lib'; -} - -BEGIN { print "1..1\n"; } use strict; diff --git a/lib/CPAN/t/mirroredby.t b/lib/CPAN/t/mirroredby.t index 91bd396200..f383be82bc 100644 --- a/lib/CPAN/t/mirroredby.t +++ b/lib/CPAN/t/mirroredby.t @@ -8,6 +8,7 @@ BEGIN { } use strict; +use lib "BUNDLE"; use Test::More tests => 6; use_ok( 'CPAN::FirstTime' ); diff --git a/lib/CPAN/t/vcmp.t b/lib/CPAN/t/vcmp.t index 290fc3d206..daed979570 100644 --- a/lib/CPAN/t/vcmp.t +++ b/lib/CPAN/t/vcmp.t @@ -1,10 +1,5 @@ # -*- Mode: cperl; coding: utf-8; -*- -BEGIN { - chdir 't' if -d 't'; - @INC = '../lib'; -} - use strict; use CPAN; use vars qw($D $N); |