This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix warning.
[perl5.git]
/
lib
/
ExtUtils
/
t
/
prereq_print.t
diff --git
a/lib/ExtUtils/t/prereq_print.t
b/lib/ExtUtils/t/prereq_print.t
index
78dc6e8
..
1dc0702
100644
(file)
--- a/
lib/ExtUtils/t/prereq_print.t
+++ b/
lib/ExtUtils/t/prereq_print.t
@@
-13,8
+13,17
@@
BEGIN {
use strict;
use Config;
use strict;
use Config;
-use Test::More tests => 8;
+use Test::More;
+
+unless( eval { require Data::Dumper } ) {
+ plan skip_all => 'Data::Dumper not available';
+}
+
+plan tests => 11;
+
+
use MakeMaker::Test::Utils;
use MakeMaker::Test::Utils;
+use MakeMaker::Test::Setup::BFD;
# 'make disttest' sets a bunch of environment variables which interfere
# with our testing.
# 'make disttest' sets a bunch of environment variables which interfere
# with our testing.
@@
-24,11
+33,17
@@
my $Perl = which_perl();
my $Makefile = makefile_name();
my $Is_VMS = $^O eq 'VMS';
my $Makefile = makefile_name();
my $Is_VMS = $^O eq 'VMS';
-chdir
($Is_VMS ? 'BFD_TEST_ROOT:[t]' : 't')
;
+chdir
't'
;
perl_lib;
$| = 1;
perl_lib;
$| = 1;
+ok( setup_recurs(), 'setup' );
+END {
+ ok( chdir File::Spec->updir );
+ ok( teardown_recurs(), 'teardown' );
+}
+
ok( chdir('Big-Dummy'), "chdir'd to Big-Dummy" ) ||
diag("chdir failed: $!");
ok( chdir('Big-Dummy'), "chdir'd to Big-Dummy" ) ||
diag("chdir failed: $!");