diff options
author | Graham Barr <gbarr@pobox.com> | 2002-02-25 13:52:54 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2002-02-25 13:52:54 +0000 |
commit | 093e29c003b73e7a756d878b7601e9067c799a64 (patch) | |
tree | ffebbb8fac6576b2f4c29c01106a5720f469bbd1 /t | |
parent | 930a0d7faf2924f6fafe008696f83566d1c795ec (diff) | |
download | perl-libnet-093e29c003b73e7a756d878b7601e9067c799a64.tar.gz |
t/*
- Skip tests if no Socket module
Diffstat (limited to 't')
-rw-r--r-- | t/config.t | 3 | ||||
-rw-r--r-- | t/ftp.t | 3 | ||||
-rw-r--r-- | t/hostname.t | 3 | ||||
-rw-r--r-- | t/netrc.t | 3 | ||||
-rw-r--r-- | t/nntp.t | 3 | ||||
-rw-r--r-- | t/require.t | 3 | ||||
-rw-r--r-- | t/smtp.t | 3 |
7 files changed, 21 insertions, 0 deletions
@@ -5,6 +5,9 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } + if (!eval "require Socket") { + print "1..0 # no Socket\n"; exit 0; + } undef *{Socket::inet_aton}; undef *{Socket::inet_ntoa}; if (ord('A') == 193 && !eval "require Convert::EBCDIC") { @@ -5,6 +5,9 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } + if (!eval "require Socket") { + print "1..0 # no Socket\n"; exit 0; + } if (ord('A') == 193 && !eval "require Convert::EBCDIC") { print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0; } diff --git a/t/hostname.t b/t/hostname.t index 2569722..e085591 100644 --- a/t/hostname.t +++ b/t/hostname.t @@ -5,6 +5,9 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } + if (!eval "require Socket") { + print "1..0 # no Socket\n"; exit 0; + } if (ord('A') == 193 && !eval "require Convert::EBCDIC") { print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0; } @@ -5,6 +5,9 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } + if (!eval "require Socket") { + print "1..0 # no Socket\n"; exit 0; + } if (ord('A') == 193 && !eval "require Convert::EBCDIC") { print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0; } @@ -5,6 +5,9 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } + if (!eval "require Socket") { + print "1..0 # no Socket\n"; exit 0; + } if (ord('A') == 193 && !eval "require Convert::EBCDIC") { print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0; } diff --git a/t/require.t b/t/require.t index 95dea87..163c8bd 100644 --- a/t/require.t +++ b/t/require.t @@ -5,6 +5,9 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } + if (!eval "require Socket") { + print "1..0 # no Socket\n"; exit 0; + } if (ord('A') == 193 && !eval "require Convert::EBCDIC") { print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0; } @@ -5,6 +5,9 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } + if (!eval "require Socket") { + print "1..0 # no Socket\n"; exit 0; + } if (ord('A') == 193 && !eval "require Convert::EBCDIC") { print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0; } |