Git/testssl.sh
1
0
Fork 0
mirror of https://github.com/drwetter/testssl.sh.git synced 2024-12-29 04:49:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

PoC added

Browse Source 
Current catch: "JSON::Validator" cannot swallow "--json-pretty". Other
validators tried had issues too.

Improvements welcome!

See #1227
This commit is contained in:
Dirk Wetter 2019-04-15 10:34:03 +02:00
parent d1e14634bf
commit 1d558228b7
1 changed files with 58 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
t/09_isJSON_valid.t Executable file
View File

@ -0,0 +1,58 @@
#!/usr/bin/env perl
# This is more a PoC. Improvements welcome!
#
# Current catches:
# * JSON::Validator cannot swallow --json-pretty
# * other validators "Test::JSON", "Test::JSON::More", "JSON::Schema", "JSON::Parse" had issues too
use strict;
use Test::More;
use JSON;
use JSON::Validator;
my $jv = JSON::Validator->new;
my (
$out,
$json,
$found,
$tests
);
$tests = 0;
my $hostn = "cloudflare.com";
unlink 'tmp.json';
#1
pass("Running testssl.sh against $hostn with plain JSON output");
$tests++;
$out = `./testssl.sh --ssl-native --ip=one -q --jsonfile tmp.json --color 0 $hostn`;
$json = json('tmp.json');
unlink 'tmp.json';
#2
my @errors = $jv->validate(@$json);
is(@errors,0,"no errors");
$tests++;
#3
pass("Running testssl.sh --mx against $hostn with plain JSON");
$tests++;
$out = `./testssl.sh --ssl-native --ip=one --mx -q --jsonfile tmp.json --color 0 $hostn`;
$json = json('tmp.json');
unlink 'tmp.json';
#4
my @errors = $jv->validate(@$json);
is(@errors,0,"no errors");
$tests++;
done_testing($tests);
sub json($) {
my $file = shift;
$file = `cat $file`;
return from_json($file);
}