From 05818928a000c6cdde34780f60981d5590976f50 Mon Sep 17 00:00:00 2001 From: Dirk Wetter Date: Thu, 8 May 2025 14:13:01 +0200 Subject: [PATCH] Number each check / make it work under MacOS --- t/00_testssl_help.t | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/t/00_testssl_help.t b/t/00_testssl_help.t index b979fa8..99ae17c 100755 --- a/t/00_testssl_help.t +++ b/t/00_testssl_help.t @@ -24,33 +24,42 @@ printf "\n%s\n", "Testing whether just calling \"./testssl.sh\" produces no erro my $info = stat($prg); my $retMode = $info->mode; +#1 is($retMode & 0400, 0400, "Checking \"./testssl.sh\" for read permission"); $tests++; +#2 is($retMode & 0100, 0100, "Checking \"./testssl.sh\" for execute permission"); $tests++; -$fileout = `timeout 10 bash $prg 2>&1`; +$fileout = `bash $prg 2>&1`; my $retval=$?; +#3 unlike($fileout, qr/$error_regexp1/, "regex 1"); $tests++; +#4 unlike($fileout, qr/$error_regexp2/, "regex 2"); $tests++; +#5 unlike($fileout, qr/$error_regexp3/, "regex 3"); $tests++; +#6 unlike($fileout, qr/$error_regexp4/, "regex 4"); $tests++; +#7 unlike($fileout, qr/$error_regexp5/, "regex 5"); $tests++; +#8 is($retval, 0, "return value should be equal zero: \"$retval\""); $tests++; +#9 $out=`grep -E "$debug_regexp" $prg`; unlike($out, qr/$debug_regexp/, "Debug RegEx"); $tests++;