diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-30 05:57:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-30 05:57:04 +0000 |
| commit | dbb032c1141611de229b2d56c7ef8937f4cd1986 (patch) | |
| tree | 37e4c8c740769bc298bf2092323e46195cad2509 /ext | |
| parent | 9e8c31cc7f224d58a5cb5107b5900855526a273c (diff) | |
| download | perl-dbb032c1141611de229b2d56c7ef8937f4cd1986.tar.gz | |
Make XSLoader.t more robust (and sdbm.t more verbose)
p4raw-id: //depot/perl@20945
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/t/XSLoader.t | 12 | ||||
| -rw-r--r-- | ext/SDBM_File/t/sdbm.t | 2 |
2 files changed, 12 insertions, 2 deletions
diff --git a/ext/DynaLoader/t/XSLoader.t b/ext/DynaLoader/t/XSLoader.t index 1654a2ec03..6eb26af64b 100644 --- a/ext/DynaLoader/t/XSLoader.t +++ b/ext/DynaLoader/t/XSLoader.t @@ -2,7 +2,17 @@ BEGIN { chdir 't'; -# @INC = '../lib'; + @INC = '../lib'; + eval 'use Fcntl'; + if ($@ =~ /dynamic loading not available/) { + print "1..0 # Skip: no dynamic loading\n"; + exit; + } + require Config; import Config; + if (($Config{'extensions'} !~ /\bSDBM_File\b/) && ($^O ne 'VMS')){ + print "1..0 # Skip: no SDBM_File\n"; + exit 0; + } } use Test; diff --git a/ext/SDBM_File/t/sdbm.t b/ext/SDBM_File/t/sdbm.t index 8106289364..3f8024e024 100644 --- a/ext/SDBM_File/t/sdbm.t +++ b/ext/SDBM_File/t/sdbm.t @@ -7,7 +7,7 @@ BEGIN { @INC = '../lib'; require Config; import Config; if (($Config{'extensions'} !~ /\bSDBM_File\b/) && ($^O ne 'VMS')){ - print "1..0\n"; + print "1..0 # Skip: no SDBM_File\n"; exit 0; } } |