summaryrefslogtreecommitdiff
path: root/lib/CPAN/t
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-02-08 08:45:35 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-02-08 08:45:35 +0000
commit5fc0f0f6e90f423ffa278e3f31f7021206604ee9 (patch)
tree5b2e1c273398658ee95394052bd8fd53b1c2f75e /lib/CPAN/t
parent9c36735de2bc373cab0c4275429b13fc1c754d20 (diff)
downloadperl-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.t9
-rw-r--r--lib/CPAN/t/loadme.t5
-rw-r--r--lib/CPAN/t/mirroredby.t1
-rw-r--r--lib/CPAN/t/vcmp.t5
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);