From: Paul Smith <psmith@gnu.org>
Date: Mon, 15 Mar 2021 05:15:18 +0000 (-0400)
Subject: * tests/scripts/features/exec: Small cleanup
X-Git-Tag: 4.3.90~182
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=144f436c4b7b4aac49817193b9490b1f1d358e7b;p=thirdparty%2Fmake.git

* tests/scripts/features/exec: Small cleanup
---

diff --git a/tests/scripts/features/exec b/tests/scripts/features/exec
index 91181f4e..54ab1447 100644
--- a/tests/scripts/features/exec
+++ b/tests/scripts/features/exec
@@ -3,13 +3,13 @@
 use warnings;
 
 my $description = "Test that make can execute binaries as well as scripts with"
-                 ." various shabangs and without a shebang";
+                 ." various shabangs and without a shbang";
 my $details = "The various shells that this test uses are the default"
              ." /bin/sh, \$SHELL and the perl interpreter that is"
              ." executing this test program. The shells are used for the value"
-             ." of SHELL inside the test makefile and also as a shebang in the"
+             ." of SHELL inside the test makefile and also as a shbang in the"
              ." executed script. There is also a test which executes a script"
-             ." that has no shebang.";
+             ." that has no shbang.";
 
 # Only bother with this on UNIX systems
 $port_type eq 'UNIX' or return -1;
@@ -17,26 +17,26 @@ $port_type eq 'UNIX' or return -1;
 my $usersh = $origENV{SHELL};
 my $answer = 'hello, world';
 
-my @shebangs = ('', '#!/bin/sh', "#!$usersh", "#!$perl_name");
+my @shbangs = ('', '#!/bin/sh', "#!$usersh", "#!$perl_name");
 my @shells = ('', 'SHELL=/bin/sh', "SHELL=$usersh");
 
 # tests [0-11]
 # Have a makefile with various SHELL= exec a shell program with varios
-# shebangs or without a shebang at all.
+# shbangs or without a shbang at all.
 my $stem = './exec.cmd';
 my $k = 0;
-for my $shebang (@shebangs) {
+for my $shbang (@shbangs) {
     for my $shell (@shells) {
         my $cmd = $k ? "$stem.$k" : $stem;
         ++$k;
         unlink $cmd;
         open(CMD,"> $cmd");
-        print CMD "$shebang\n";
+        print CMD "$shbang\n";
         print CMD "printf \"$answer\\n\";\n";
         close(CMD);
         chmod 0700, $cmd;
 
-        run_make_test(q!
+        run_make_test("# $shbang\n# $shell" . q!
 all:; @$(CMD)
 !, "$shell CMD=$cmd", "$answer\n");