summaryrefslogtreecommitdiff
path: root/t/lib
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-07-11 19:11:18 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-07-11 19:11:18 +0000
commitbe3174d2532d82826fc0aa416a83ef8ce0f07732 (patch)
treedcb2f29d4e1d0a6db01d7d1c2c96304de9c13b8d /t/lib
parent5e5f20b507b6c3b7749b1f2f6cfd8a156eca9deb (diff)
downloadperl-be3174d2532d82826fc0aa416a83ef8ce0f07732.tar.gz
integrate cfgperl changes#6268..6282 into mainline
p4raw-link: @6282 on //depot/cfgperl: d4817f5b97d4072a6efac47844b617245b179f2c p4raw-link: @6268 on //depot/cfgperl: 22e04bdb3a09a4c369fd1666143349eab2eba9d4 p4raw-id: //depot/perl@6366 p4raw-integrated: from //depot/cfgperl@6365 'copy in' lib/Net/Ping.pm lib/Text/Wrap.pm t/lib/dprof.t t/lib/dumper-ovl.t t/lib/hostname.t (@5586..) lib/Pod/Html.pm (@5608..) t/lib/ipc_sysv.t (@5812..) t/lib/dumper.t (@5972..) ext/File/Glob/Glob.pm (@6026..) lib/Pod/Man.pm lib/Pod/Text.pm (@6034..) t/lib/anydbm.t (@6072..) lib/ExtUtils/xsubpp (@6156..) pod/perlsub.pod pod/perltie.pod (@6206..) utils/h2xs.PL (@6280..) p4raw-integrated: from //depot/cfgperl@6282 'merge in' vms/vms.c (@6238..) p4raw-integrated: from //depot/cfgperl@6277 'copy in' pod/perlfunc.pod (@6276..) p4raw-integrated: from //depot/cfgperl@6273 'ignore' perlapi.h (@6243..) embedvar.h (@6254..) 'merge in' perlapi.c (@6243..) embed.h (@6254..) embed.pl objXSUB.h op.c proto.h (@6269..) p4raw-integrated: from //depot/cfgperl@6270 'copy in' t/op/taint.t (@5857..) p4raw-integrated: from //depot/cfgperl@6269 'copy in' doop.c (@6263..) 'ignore' toke.c (@6261..) p4raw-integrated: from //depot/cfgperl@6268 'copy in' t/op/sprintf.t (@6267..)
Diffstat (limited to 't/lib')
-rwxr-xr-xt/lib/anydbm.t5
-rwxr-xr-xt/lib/dprof.t6
-rwxr-xr-xt/lib/dumper-ovl.t5
-rwxr-xr-xt/lib/dumper.t5
-rwxr-xr-xt/lib/hostname.t5
-rwxr-xr-xt/lib/ipc_sysv.t4
6 files changed, 28 insertions, 2 deletions
diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t
index a7fca17811..e304766fc1 100755
--- a/t/lib/anydbm.t
+++ b/t/lib/anydbm.t
@@ -5,6 +5,11 @@
BEGIN {
chdir 't' if -d 't';
unshift @INC, '../lib';
+ require Config; import Config;
+ if (($Config{'extensions'} !~ /\b(DB|[A-Z]DBM)_File\b/) ){
+ print "1..0 # Skipping (no DB_File or [A-Z]DBM_File)\n";
+ exit 0;
+ }
}
require AnyDBM_File;
use Fcntl;
diff --git a/t/lib/dprof.t b/t/lib/dprof.t
index 4d6f7823c3..fc5bd050cb 100755
--- a/t/lib/dprof.t
+++ b/t/lib/dprof.t
@@ -3,6 +3,11 @@
BEGIN {
chdir( 't' ) if -d 't';
unshift @INC, '../lib';
+ require Config; import Config;
+ if ($Config{'extensions'} !~ /\bDevel\/DProf\b/){
+ print "1..0 # Skip: Devel::DProf was not built\n";
+ exit 0;
+ }
}
END {
@@ -11,7 +16,6 @@ END {
use Benchmark qw( timediff timestr );
use Getopt::Std 'getopts';
-use Config '%Config';
getopts('vI:p:');
# -v Verbose
diff --git a/t/lib/dumper-ovl.t b/t/lib/dumper-ovl.t
index 8c095e59be..b8c8719318 100755
--- a/t/lib/dumper-ovl.t
+++ b/t/lib/dumper-ovl.t
@@ -3,6 +3,11 @@
BEGIN {
chdir 't' if -d 't';
unshift @INC, '../lib' if -d '../lib';
+ require Config; import Config;
+ if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+ print "1..0 # Skip: Data::Dumper was not built\n";
+ exit 0;
+ }
}
use Data::Dumper;
diff --git a/t/lib/dumper.t b/t/lib/dumper.t
index b9680bd5e6..7b5a611b7d 100755
--- a/t/lib/dumper.t
+++ b/t/lib/dumper.t
@@ -6,6 +6,11 @@
BEGIN {
chdir 't' if -d 't';
unshift @INC, '../lib' if -d '../lib';
+ require Config; import Config;
+ if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+ print "1..0 # Skip: Data::Dumper was not built\n";
+ exit 0;
+ }
}
use Data::Dumper;
diff --git a/t/lib/hostname.t b/t/lib/hostname.t
index 6f61fb9dad..8a34e9c4e7 100755
--- a/t/lib/hostname.t
+++ b/t/lib/hostname.t
@@ -3,6 +3,11 @@
BEGIN {
chdir 't' if -d 't';
unshift @INC, '../lib';
+ require Config; import Config;
+ if ($Config{'extensions'} !~ /\bSys\/Hostname\b/) {
+ print "1..0 # Skip: Sys::Hostname was not built\n";
+ exit 0;
+ }
}
use Sys::Hostname;
diff --git a/t/lib/ipc_sysv.t b/t/lib/ipc_sysv.t
index a4f3e3f367..d2991e3eac 100755
--- a/t/lib/ipc_sysv.t
+++ b/t/lib/ipc_sysv.t
@@ -9,7 +9,9 @@ BEGIN {
my $reason;
- if ($Config{'d_sem'} ne 'define') {
+ if ($Config{'extensions'} !~ /\bIPC\/SysV\b/) {
+ $reason = 'IPC::SysV was not built';
+ } elsif ($Config{'d_sem'} ne 'define') {
$reason = '$Config{d_sem} undefined';
} elsif ($Config{'d_msg'} ne 'define') {
$reason = '$Config{d_msg} undefined';