diff --git a/t/02_clientsim_txt_parsable.t b/t/02_clientsim_txt_parsable.t new file mode 100755 index 0000000..a746931 --- /dev/null +++ b/t/02_clientsim_txt_parsable.t @@ -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); + +