#!/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);