diff options
Diffstat (limited to 'tests/Test-https-selfsigned.px')
| -rwxr-xr-x | tests/Test-https-selfsigned.px | 19 |
1 files changed, 1 insertions, 18 deletions
diff --git a/tests/Test-https-selfsigned.px b/tests/Test-https-selfsigned.px index 632017f..330f648 100755 --- a/tests/Test-https-selfsigned.px +++ b/tests/Test-https-selfsigned.px @@ -1,4 +1,4 @@ -#!/usr/bin/env perl +#!/usr/bin/env -S perl -I . use strict; use warnings; @@ -20,13 +20,6 @@ my %urls = ( }, ); -# Skip the test if openssl is not available -my $ossl = `openssl version`; -unless ($ossl =~ m/OpenSSL 1/) -{ - exit 77; -} - my $srcdir; if (@ARGV) { $srcdir = shift @ARGV; @@ -55,16 +48,6 @@ unless (inet_ntoa($addr) =~ "127.0.0.1") my $certfile="$srcdir/certs/selfsigned.crt"; my $keyfile="$srcdir/certs/selfsigned.key"; -my $sscheck=`(openssl x509 -noout -modulus -in $certfile | openssl md5 ; - openssl rsa -noout -modulus -in $keyfile | openssl md5) | - uniq|wc -l`; - -# Check if Self signed certificate and key are made correctly. -unless(-e $certfile && -e $keyfile && $sscheck == 1) -{ - exit 77; # skip -} - # Try Wget using SSL first without --no-check-certificate. expect error my $port = 26443; my $cmdline = $WgetTest::WGETPATH . " --ca-certificate=$srcdir/certs/test-ca-cert.pem". |