mirror of
https://github.com/drwetter/testssl.sh.git
synced 2025-01-31 04:41:15 +01:00
Add file to check whether ~/etc/client-simulation.txt is parsable
This commit is contained in:
parent
cf8cb541d5
commit
69acd00731
28
t/02_clientsim_txt_parsable.t
Executable file
28
t/02_clientsim_txt_parsable.t
Executable file
@ -0,0 +1,28 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
# Just a functional test, whether there are any problems on the client side
|
||||
# Probably we could also inspect the JSON for any problems for
|
||||
# "id" : "scanProblem"
|
||||
# "finding" : "Scan interrupted"
|
||||
|
||||
use strict;
|
||||
use Test::More;
|
||||
|
||||
my $tests = 0;
|
||||
my $check2run ="--client-simulation -q --ip=one --color 0";
|
||||
my $fileout="";
|
||||
# Blacklists we use to trigger an error:
|
||||
my $error_regexp1='(syntax|parse) (e|E)rror';
|
||||
my $error_regexp2='client-simulation.txt:';
|
||||
|
||||
printf "\n%s\n", "Testing whether \"~/etc/client-simulation.txt\" isn't broken ...";
|
||||
$fileout = `bash ./etc/client-simulation.txt 2>&1`;
|
||||
unlike($fileout, qr/$error_regexp1/, "");
|
||||
$tests++;
|
||||
|
||||
unlike($fileout, qr/$error_regexp2/, "");
|
||||
$tests++;
|
||||
|
||||
done_testing($tests);
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user