Torsten BögershausenAdd the perl script "check-non-portable-shell.pl" to detect non-portable shell syntax Many systems use gnu tools which accept an extended syntax in shell scripts, which is not portable on all systems and causes the test suite to fail.
To prevent contributors using e.g. Linux to add non-portable test code, "check-non-portable-shell.pl" is run as part of "make test" or "make in the t/ directory.
"echo -n" is an example of a statement working on Linux, but not on e.g. Mac OS X.
Beside "echo -n" we check for "sed -i", arrays in shell scripts (declare statement), "which" (use type instead), or "==" (bash style of =)
Signed-off-by: Torsten Bögershausen <tboegi@web.de> --- t/Makefile | 7 +++-- t/check-non-portable-shell.pl | 67 +++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 72 insertions(+), 2 deletions(-) create mode 100755 t/check-non-portable-shell.pl
Show changes to 2 files +72 −2
t/Makefile, t/check-non-portable-shell.pl
diff --git a/t/Makefile b/t/Makefile index 88e289f..7b0c4dc 100644 --- a/t/Makefile +++ b/t/Makefile @@ -23,7 +23,7 @@ TGITWEB = $(sort $(wildcard t95[0-9][0-9]-*.sh)) all: $(DEFAULT_TEST_TARGET) -test: pre-clean $(TEST_LINT) +test: pre-clean test-lint-shell-syntax $(TEST_LINT) $(MAKE) aggregate-results-and-cleanup prove: pre-clean $(TEST_LINT) @@ -43,7 +43,7 @@ clean-except-prove-cache: clean: clean-except-prove-cache $(RM) .prove -test-lint: test-lint-duplicates test-lint-executable +test-lint: test-lint-duplicates test-lint-executable test-lint-shell-syntax test-lint-duplicates: @dups=`echo $(T) | tr ' ' '\n' | sed 's/-.*//' | sort | uniq -d` && \ @@ -55,6 +55,9 @@ test-lint-executable: test -z "$$bad" || { \ echo >&2 "non-executable tests:" $$bad; exit 1; } +test-lint-shell-syntax: + $(PERL_PATH) check-non-portable-shell.pl $(T) + aggregate-results-and-cleanup: $(T) $(MAKE) aggregate-results $(MAKE) clean diff --git a/t/check-non-portable-shell.pl b/t/check-non-portable-shell.pl new file mode 100755 index 0000000..de62ef0 --- /dev/null +++ b/t/check-non-portable-shell.pl @@ -0,0 +1,67 @@ +#!/usr/bin/perl -w +###################################################################### +# Test t0000..t9999.sh for non portable shell scripts # +# Examples are "echo -n" or "sed -i" # +# This script can be called with one or more filenames as parameters # +# +###################################################################### +use strict; +my $exitcode=0; + +sub check_one_file($) { + my $lineno=1; + my $filename=shift; + + open(FINPUT, "<$filename") || die "Couldn't open filename $filename"; + my @fdata = <FINPUT>; + close(FINPUT); + + while (my $line = shift @fdata) { + do { + chomp $line; + # sed -i + if ($line =~ /^\s*sed\s+-i/) { + printf("%s:%d:error: \"sed -i not portable\" %s\n", $filename, $lineno, $line); + $exitcode=1; + } + # echo -n + if ($line =~ /^\s*echo\s+-n/) { + printf("%s:%d:error: \"echo -n not portable\" %s\n", $filename, $lineno, $line); + $exitcode=1; + } + # arrays (declare statement) + if ($line =~ /^\s*declare\s+/) { + printf("%s:%d:error: \"arrays/declare not portable\" %s\n", $filename, $lineno, $line); + $exitcode=1; + } + # which + if ($line =~ /^\s*[^#]\s*which\s/) { + printf("%s:%d:error: \"which is not portable (use type)\" %s\n", $filename, $lineno, $line); + $exitcode=1; + } + + # == (bash style comparison) + if ($line =~ /test\s+[^=]*==/) { + printf("%s:%d:error: \"== is not portable (use =)\" %s\n", $filename, $lineno, $line); + $exitcode=1; + } + + $lineno=$lineno+1; + } + } +} + + +if ($#ARGV <= 0) { + print STDERR "$0: Check shell scripts for non portable syntax\n"; + print STDERR "Example: $0 t[0-9]*.sh\n"; + + exit(2); +} + +while (@ARGV) { + my $arg = shift @ARGV; + check_one_file($arg); +} + +exit($exitcode);
-- 1.8.0.197.g5a90748
