Git/testssl.sh
1
0
Fork 0
mirror of https://github.com/drwetter/testssl.sh.git synced 2025-09-01 17:48:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Number each check / make it work under MacOS

Browse Source
This commit is contained in:
Dirk Wetter
2025-05-08 14:13:01 +02:00
parent 130da03b35
commit 05818928a0
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
t/00_testssl_help.t
View File

@ -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++;