Use lexical warnings in test scripts.

[wget] / tests / Test-proxied-https-auth.px

diff --git a/tests/Test-proxied-https-auth.px b/tests/Test-proxied-https-auth.px
index 182c9dbfa60f95e9fcaaecbdcd19bbe3db0e6915..4e3fb206dcdf8645a1815beead355aa3ce565c32 100755 (executable)
--- a/tests/Test-proxied-https-auth.px
+++ b/tests/Test-proxied-https-auth.px
@@ -1,8 +1,19 @@
 #!/usr/bin/perl
-use warnings;
+
 use strict;
+use warnings;
 
 use WgetTest;  # For $WGETPATH.
+
+# Have we even built an HTTPS-supporting Wget?
+{
+    my @version_lines = `${WgetTest::WGETPATH} --version`;
+    unless (grep /\+(openssl|gnutls)/, @version_lines) {
+        print "Not running test: Wget under test doesn't support HTTPS.\n";
+        exit 0;
+    }
+}
+
 use HTTP::Daemon;
 use HTTP::Request;
 use IO::Socket::SSL;