Git/testssl.sh
1
0
Fork 0
mirror of https://github.com/drwetter/testssl.sh.git synced 2025-01-06 00:39:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #2042 from dcooper16/check_file_permissions

Browse Source 
Check file permissions on ./testssl.sh
This commit is contained in:
Dirk Wetter 2021-11-16 17:25:38 +01:00 committed by GitHub
commit 92a0da1d75
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
t/00_testssl_help.t
View File

@ -4,6 +4,7 @@
use strict; use strict;
use Test::More; use Test::More;
use File::stat;
my $tests = 0; my $tests = 0;
my $fileout=""; my $fileout="";
@ -20,6 +21,15 @@ my $error_regexp4='command not found';
my $error_regexp5='(syntax error|unexpected token)'; my $error_regexp5='(syntax error|unexpected token)';
printf "\n%s\n", "Testing whether just calling \"./testssl.sh\" produces no error ..."; printf "\n%s\n", "Testing whether just calling \"./testssl.sh\" produces no error ...";
my $info = stat($prg);
my $retMode = $info->mode;
is($retMode & 0400, 0400, "Checking \"./testssl.sh\" for read permission");
$tests++;
is($retMode & 0100, 0100, "Checking \"./testssl.sh\" for execute permission");
$tests++;
$fileout = `timeout 10 bash $prg 2>&1`; $fileout = `timeout 10 bash $prg 2>&1`;
my $retval=$?; my $retval=$?;