From a9d469d12a474d56ca20329db47128fe1f2a086f Mon Sep 17 00:00:00 2001 From: Dirk Wetter Date: Thu, 8 May 2025 14:44:33 +0200 Subject: [PATCH] renumber tests properly --- t/10_baseline_ipv4_http.t | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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++;