diff options
| author | Tony Cook <tony@develop-help.com> | 2016-04-04 09:52:57 +1000 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2016-04-08 00:16:24 +0100 |
| commit | 7f5084b215ad6faddd4820829cb5ae1f10ea5220 (patch) | |
| tree | 285e9496b821ba3a554e62d0c9a04fe98f3988f9 | |
| parent | 230c3a5ff7e9977db5012222bdba57c577d872d0 (diff) | |
| download | perl-7f5084b215ad6faddd4820829cb5ae1f10ea5220.tar.gz | |
don't test crypt()s tied fetch count if we don't have crypt()
As of libcrypt 1.3, crypt() isn't detected on cygwin unless you install
libcrypt-devel, and this test failed.
(cherry picked from commit 48d9c42720bd6af3c245182872e858b5810fd003)
| -rw-r--r-- | t/op/tie_fetch_count.t | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index 41fef0c339..6f01f822a5 100644 --- a/t/op/tie_fetch_count.t +++ b/t/op/tie_fetch_count.t @@ -250,12 +250,18 @@ for ([chdir=>''],[chmod=>'0,'],[chown=>'0,0,'],[utime=>'0,0,'], check_count "$op $args\\\$tied_glob$postargs"; } -$dummy = crypt $var,0; check_count 'crypt $tied, ...'; -$dummy = crypt 0,$var; check_count 'crypt ..., $tied'; -$var = substr(chr 256,0,0); -$dummy = crypt $var,0; check_count 'crypt $tied_utf8, ...'; -$var = substr(chr 256,0,0); -$dummy = crypt 0,$var; check_count 'crypt ..., $tied_utf8'; +my $can_config = eval { require Config; 1 }; +SKIP: +{ + skip "No Config", 4 unless $can_config; + skip "No crypt()", 4 unless $Config::Config{d_crypt}; + $dummy = crypt $var,0; check_count 'crypt $tied, ...'; + $dummy = crypt 0,$var; check_count 'crypt ..., $tied'; + $var = substr(chr 256,0,0); + $dummy = crypt $var,0; check_count 'crypt $tied_utf8, ...'; + $var = substr(chr 256,0,0); + $dummy = crypt 0,$var; check_count 'crypt ..., $tied_utf8'; +} SKIP: { |