mirror of
https://github.com/drwetter/testssl.sh.git
synced 2025-10-30 21:35:26 +01:00
f29f93ca72
... to avoid repeated failures because of heise.de . Looks like there are
server side measures which made some tests fail. Often the MacOS CI runner
is slower and seems to run into that.
See also 56c1e585
118 lines
3.9 KiB
Perl
Executable File
118 lines
3.9 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
# Checking whether the HTML output is somehow valid
|
|
# This could be amended by using HTML::Tidy or HTML::Valid
|
|
|
|
use strict;
|
|
use Test::More;
|
|
use Data::Dumper;
|
|
use Text::Diff;
|
|
|
|
my $tests = 0;
|
|
my $prg="./testssl.sh";
|
|
my $uri="github.com";
|
|
my $out="";
|
|
my $html="";
|
|
my $debughtml="";
|
|
my $edited_html="";
|
|
my $htmlfile="tmp.html";
|
|
# Pick /usr/bin/openssl as we want to avoid the debug messages like "Your ./bin/openssl.Linux.x86_64 doesn't support X25519"
|
|
my $check2run="--ip=one -4 --openssl /usr/bin/openssl --sneaky --ids-friendly --color 0 --htmlfile $htmlfile";
|
|
my $diff="";
|
|
my $ip="";
|
|
die "Unable to open $prg" unless -f $prg;
|
|
|
|
printf "\n%s\n", "Doing HTML output checks";
|
|
unlink $htmlfile;
|
|
|
|
#1
|
|
printf "%s\n", " .. running $prg against \"$uri\" to create HTML and terminal outputs (may take ~2 minutes)";
|
|
# specify a TERM_WIDTH so that the two calls to testssl.sh don't create HTML files with different values of TERM_WIDTH
|
|
$out = `TERM_WIDTH=120 $prg $check2run $uri`;
|
|
$html = `cat $htmlfile`;
|
|
# $edited_html will contain the HTML with formatting information removed in order to compare against terminal output
|
|
# Start by removing the HTML header.
|
|
$edited_html = `tail -n +11 $htmlfile`;
|
|
unlink $htmlfile;
|
|
|
|
# Remove the HTML footer
|
|
$edited_html =~ s/\n\<\/pre\>\n\<\/body\>\n\<\/html\>//;
|
|
# Remove any hypertext links for URLs
|
|
$edited_html =~ s/<a href=[0-9A-Za-z ";:_&=\/\.\?\-]*>//g;
|
|
$edited_html =~ s/<\/a>//g;
|
|
|
|
# Replace escaped characters with their original text
|
|
$edited_html =~ s/&/&/g;
|
|
$edited_html =~ s/</</g;
|
|
$edited_html =~ s/>/>/g;
|
|
$edited_html =~ s/"/"/g;
|
|
$edited_html =~ s/'/'/g;
|
|
|
|
$diff = diff \$edited_html, \$out;
|
|
|
|
ok($edited_html eq $out, "Checking if HTML file matches terminal output") or
|
|
diag ("\n%s\n", "$diff");
|
|
|
|
$tests++;
|
|
|
|
|
|
if ( $^O eq "darwin" ){
|
|
printf "\nskip debug check on MacOS\n\n";
|
|
done_testing($tests);
|
|
exit 0;
|
|
}
|
|
|
|
|
|
#2
|
|
printf "%s\n", " .. running again $prg against \"$uri\", now with --debug 4 to create HTML output (may take another ~2 minutes)";
|
|
# Redirect stderr to /dev/null in order to avoid some unexplained "date: invalid date" error messages
|
|
$out = `TERM_WIDTH=120 $prg $check2run --debug 4 $uri 2>/dev/null`;
|
|
$debughtml = `cat $htmlfile`;
|
|
unlink $htmlfile;
|
|
|
|
# Remove date information from the Start and Done banners in the two HTML files, since they were created at different times
|
|
$html =~ s/Start 2[0-9][0-9][0-9]-[0-3][0-9]-[0-3][0-9] [0-2][0-9]:[0-5][0-9]:[0-5][0-9]/Start XXXX-XX-XX XX:XX:XX/;
|
|
$debughtml =~ s/Start 2[0-9][0-9][0-9]-[0-3][0-9]-[0-3][0-9] [0-2][0-9]:[0-5][0-9]:[0-5][0-9]/Start XXXX-XX-XX XX:XX:XX/;
|
|
|
|
$html =~ s/Done 2[0-9][0-9][0-9]-[0-3][0-9]-[0-3][0-9] [0-2][0-9]:[0-5][0-9]:[0-5][0-9] \[ *[0-9]*s\]/Done XXXX-XX-XX XX:XX:XX [ Xs]/;
|
|
$debughtml =~ s/Done 2[0-9][0-9][0-9]-[0-3][0-9]-[0-3][0-9] [0-2][0-9]:[0-5][0-9]:[0-5][0-9] \[ *[0-9]*s\]/Done XXXX-XX-XX XX:XX:XX [ Xs]/;
|
|
|
|
# Remove time difference from "HTTP clock skew" line
|
|
$html =~ s/HTTP clock skew \+?-?[0-9]* /HTTP clock skew X /;
|
|
$debughtml =~ s/HTTP clock skew \+?-?[0-9]* /HTTP clock skew X /;
|
|
|
|
$debughtml =~ s/ Pre-test: .*\n//g;
|
|
$debughtml =~ s/.*OK: below 825 days.*\n//g;
|
|
$debughtml =~ s/.*DEBUG:.*\n//g;
|
|
$debughtml =~ s/No engine or GOST support via engine with your.*\n//g;
|
|
$debughtml =~ s/.*built: .*\n//g;
|
|
$debughtml =~ s/.*Using bash .*\n//g;
|
|
$debughtml =~ s/.*has_compression.*\n//g;
|
|
# is whole line: s/.*<pattern> .*\n//g;
|
|
|
|
# Extract and mask IP address as it can change
|
|
if ( $html =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/ ) {
|
|
$ip = $1;
|
|
}
|
|
$html =~ s/$ip/AAA.BBB.CCC.DDD/g;
|
|
|
|
if ( $debughtml =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/ ) {
|
|
$ip = $1;
|
|
}
|
|
$debughtml =~ s/$ip/AAA.BBB.CCC.DDD/g;
|
|
|
|
|
|
$diff = diff \$debughtml, \$html;
|
|
|
|
ok($debughtml eq $html, "Checking if HTML file created with --debug 4 matches HTML file created without --debug") or
|
|
diag ("\n%s\n", "$diff");
|
|
$tests++;
|
|
|
|
|
|
printf "\n\n";
|
|
done_testing($tests);
|
|
|
|
|
|
# vim:ts=5:sw=5:expandtab
|
|
|