Git/testssl.sh
1
0
Fork 0
mirror of https://github.com/drwetter/testssl.sh.git synced 2026-09-14 13:48:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Squash complains by perlcritic

Browse Source 
and enable warnings
This commit is contained in:
Dirk
2026-09-01 15:07:52 +02:00
parent d857e0fe60
commit 71322d89cb
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
t/00_testssl_help.t
+3 -2
View File
@@ -3,6 +3,7 @@
# Basics: is there a syntax error where already bash hiccups on? # Basics: is there a syntax error where already bash hiccups on?
use strict; use strict;
use warnings;
use Test::More; use Test::More;
use File::stat; use File::stat;
@@ -25,11 +26,11 @@ my $info = stat($prg);
my $retMode = $info->mode; my $retMode = $info->mode;
#1 #1
is($retMode & 0400, 0400, "Checking \"./testssl.sh\" for read permission"); is($retMode & oct("400"), oct("0400"), "Checking \"./testssl.sh\" for read permission");
$tests++; $tests++;
#2 #2
is($retMode & 0100, 0100, "Checking \"./testssl.sh\" for execute permission"); is($retMode & oct("0100"), oct("0100)", "Checking \"./testssl.sh\" for execute permission");
$tests++; $tests++;
$fileout = `bash $prg 2>&1`; $fileout = `bash $prg 2>&1`;