From 5337b94ce532d6eeb3a9841d8cf344482fcb38fc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tim=20R=C3=BChsen?= Date: Mon, 8 May 2017 11:54:53 +0200 Subject: [PATCH] * tests/SSLServer.pm: Check for IO::Socket::SSL --- tests/SSLServer.pm | 11 ++++++++++- tests/Test-https-pfs.px | 9 --------- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/tests/SSLServer.pm b/tests/SSLServer.pm index d9a6f00b..37a8bfa0 100644 --- a/tests/SSLServer.pm +++ b/tests/SSLServer.pm @@ -11,7 +11,16 @@ use HTTP::Daemon; use HTTP::Status; use HTTP::Headers; use HTTP::Response; -use IO::Socket::SSL; # 'debug4'; + +# Skip this test rather than fail it when the module isn't installed +if (!eval {require IO::Socket::SSL;1;}) { + print STDERR "This test needs the perl module \"IO::Socket::SSL\".\n"; + print STDERR "Install e.g. on Debian with 'apt-get install libio-socket-ssl-perl'\n"; + print STDERR " or if using cpanminus 'cpanm IO::Socket::SSL' could be used to install it.\n"; + exit 77; # skip +} + +#use IO::Socket::SSLX; # 'debug4'; use HTTPServer; our @ISA = qw(IO::Socket::SSL HTTP::Daemon::ClientConn HTTP::Daemon HTTPServer); diff --git a/tests/Test-https-pfs.px b/tests/Test-https-pfs.px index 849a3985..2398db76 100755 --- a/tests/Test-https-pfs.px +++ b/tests/Test-https-pfs.px @@ -2,15 +2,6 @@ use strict; use warnings; - -# Skip this test rather than fail it when the module isn't installed -if (!eval {require IO::Socket::SSL;1;}) { - print STDERR "This test needs the perl module \"IO::Socket::SSL\".\n"; - print STDERR "Install e.g. on Debian with 'apt-get install libio-socket-ssl-perl'\n"; - print STDERR " or if using cpanminus 'cpanm IO::Socket::SSL' could be used to install it.\n"; - exit 77; # skip -} - use SSLTest; ###############################################################################