mirror of
https://github.com/drwetter/testssl.sh.git
synced 2026-09-14 05:38:16 +02:00
double quoting needed in passed expression to grep
This commit is contained in:
+5
-5
@@ -7,8 +7,8 @@ use warnings;
|
|||||||
use Test::More;
|
use Test::More;
|
||||||
|
|
||||||
my $tests = 0;
|
my $tests = 0;
|
||||||
my $prg="testssl.sh";
|
my $prg = "testssl.sh";
|
||||||
my $os="$^O";
|
my $os = "$^O";
|
||||||
|
|
||||||
if ( $os eq "darwin" ){
|
if ( $os eq "darwin" ){
|
||||||
plan skip_all => 'No checks on MacOS';
|
plan skip_all => 'No checks on MacOS';
|
||||||
@@ -28,7 +28,7 @@ $tests++;
|
|||||||
#2
|
#2
|
||||||
printf "\n%s\n", "Testing for backticks ...";
|
printf "\n%s\n", "Testing for backticks ...";
|
||||||
|
|
||||||
my @matches = qx(grep -nP '`[^`]*`' $prg);
|
@matches = qx(grep -nP '`[^`]*`' $prg);
|
||||||
is(scalar(@matches), 0, "Checking bad backtick patterns")
|
is(scalar(@matches), 0, "Checking bad backtick patterns")
|
||||||
or diag(@matches);
|
or diag(@matches);
|
||||||
$tests++;
|
$tests++;
|
||||||
@@ -36,7 +36,7 @@ $tests++;
|
|||||||
#3
|
#3
|
||||||
printf "\n%s\n", "Sourcing without checking the file exists #1 ...";
|
printf "\n%s\n", "Sourcing without checking the file exists #1 ...";
|
||||||
|
|
||||||
my @matches = qx(grep -nP '^\s*\.\s+\$' $prg);
|
@matches = qx(grep -nP '^\\s*\\.\\s+\\$' $prg);
|
||||||
is(scalar(@matches), 0, "Checking bad sourcing pattern #1")
|
is(scalar(@matches), 0, "Checking bad sourcing pattern #1")
|
||||||
or diag(@matches);
|
or diag(@matches);
|
||||||
$tests++;
|
$tests++;
|
||||||
@@ -44,7 +44,7 @@ $tests++;
|
|||||||
#4
|
#4
|
||||||
printf "\n%s\n", "Sourcing without checking the file exists #2 ...";
|
printf "\n%s\n", "Sourcing without checking the file exists #2 ...";
|
||||||
|
|
||||||
my @matches = qx(grep -nP '^\s*source\s+\$' $prg);
|
@matches = qx(grep -nP '^\\s*source\\s+\\$' $prg);
|
||||||
is(scalar(@matches), 0, "Checking bad sourcing pattern #2")
|
is(scalar(@matches), 0, "Checking bad sourcing pattern #2")
|
||||||
or diag(@matches);
|
or diag(@matches);
|
||||||
$tests++;
|
$tests++;
|
||||||
|
|||||||
Reference in New Issue
Block a user