diff --git a/t/10_baseline_ipv4_http.t b/t/10_baseline_ipv4_http.t index 90ededa..6df9422 100755 --- a/t/10_baseline_ipv4_http.t +++ b/t/10_baseline_ipv4_http.t @@ -22,7 +22,7 @@ my $socket_out=""; my $openssl_out=""; my $socket_json=""; my $openssl_json=""; -#FIXME: Blacklists we use to trigger an error, but likely we can skip that and instead we should?/could use +#FIXME: Pattern we use to trigger an error, but likely we can skip that and instead we should?/could use the following?? # @args="$prg $check2run $uri >/dev/null"; # system("@args") == 0 # or die ("FAILED: \"@args\" "); @@ -38,23 +38,26 @@ unlink $tmp_json; # Title printf "\n%s\n", "Baseline unit test IPv4 against \"$uri\""; - -#1 $socket_out = `$prg $check2run $uri 2>&1`; $socket_json = json($tmp_json); + +#1 unlike($socket_out, qr/$socket_errors≈/, "via sockets, checking terminal output"); $tests++; + +#2 unlike($socket_json, qr/$json_errors/, "via sockets checking JSON output"); $tests++; unlink $tmp_json; - -#2 +#3 $openssl_out = `$prg --ssl-native $check2run $uri 2>&1`; $openssl_json = json($tmp_json); unlike($openssl_out, qr/$openssl_errors/, "via (builtin) OpenSSL, checking terminal output"); $tests++; + +#4 unlike($openssl_json, qr/$json_errors/, "via OpenSSL (builtin) checking JSON output"); $tests++;