Git
/
testssl.sh
mirror of https://github.com/drwetter/testssl.sh.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #1236 from drwetter/json_validate 

PoC added for JSON validation unit test
This commit is contained in:
Dirk Wetter 2019-04-15 10:35:43 +02:00 committed by GitHub
parent d1e14634bf 1d558228b7
commit c792372c70
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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);
}