From 144f436c4b7b4aac49817193b9490b1f1d358e7b Mon Sep 17 00:00:00 2001 From: Paul Smith Date: Mon, 15 Mar 2021 01:15:18 -0400 Subject: [PATCH] * tests/scripts/features/exec: Small cleanup --- tests/scripts/features/exec | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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");