Skip to content

Commit 64b3eee

Browse files
pks-tgitster
authored andcommitted
t: adapt existing PERL prerequisites
A couple of our tests depend on the PERL prerequisite even though it isn't needed. These tests fall into one of the following classes: - The underlying logic used to be implemented in Perl but isn't anymore. Here we can simply drop the dependency altogether. - The test logic used to depend on Perl but doesn't anymore. Again, we can simply drop the dependency. - The test logic still relies on a Perl interpreter. These tests should use the newly introduced PERL_TEST_HELPERS prerequisite. Adapt test cases accordingly. Note that in t1006 we have to introduce another new prerequisite depending on whether or not the IPC::Open2 module is available. Funny enough, when starting to use `test_lazy_prereq` to do so we also get a conflict of variables with the "script" variable that contains the Perl logic because `test_run_lazy_prereq_` also sets that variable. We thus rename the variable in t1006 to "perl_script". Signed-off-by: Patrick Steinhardt <[email protected]> Signed-off-by: Junio C Hamano <[email protected]>
1 parent 23e21a5 commit 64b3eee

File tree

4 files changed

+19
-15
lines changed

4 files changed

+19
-15
lines changed

t/t0021-conversion.sh

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -841,7 +841,7 @@ test_expect_success 'process filter abort stops processing of all further files'
841841
)
842842
'
843843

844-
test_expect_success PERL 'invalid process filter must fail (and not hang!)' '
844+
test_expect_success 'invalid process filter must fail (and not hang!)' '
845845
test_config_global filter.protocol.process cat &&
846846
test_config_global filter.protocol.required true &&
847847
rm -rf repo &&
@@ -1111,19 +1111,19 @@ do
11111111
branch) opt='-f HEAD' ;;
11121112
esac
11131113

1114-
test_expect_success PERL,TTY "delayed checkout shows progress by default on tty ($mode checkout)" '
1114+
test_expect_success TTY "delayed checkout shows progress by default on tty ($mode checkout)" '
11151115
test_delayed_checkout_progress test_terminal git checkout $opt
11161116
'
11171117

1118-
test_expect_success PERL "delayed checkout omits progress on non-tty ($mode checkout)" '
1118+
test_expect_success "delayed checkout omits progress on non-tty ($mode checkout)" '
11191119
test_delayed_checkout_progress ! git checkout $opt
11201120
'
11211121

1122-
test_expect_success PERL,TTY "delayed checkout omits progress with --quiet ($mode checkout)" '
1122+
test_expect_success TTY "delayed checkout omits progress with --quiet ($mode checkout)" '
11231123
test_delayed_checkout_progress ! test_terminal git checkout --quiet $opt
11241124
'
11251125

1126-
test_expect_success PERL,TTY "delayed checkout honors --[no]-progress ($mode checkout)" '
1126+
test_expect_success TTY "delayed checkout honors --[no]-progress ($mode checkout)" '
11271127
test_delayed_checkout_progress ! test_terminal git checkout --no-progress $opt &&
11281128
test_delayed_checkout_progress test_terminal git checkout --quiet --progress $opt
11291129
'

t/t0090-cache-tree.sh

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -128,7 +128,7 @@ test_expect_success 'second commit has cache-tree' '
128128
test_cache_tree
129129
'
130130

131-
test_expect_success PERL 'commit --interactive gives cache-tree on partial commit' '
131+
test_expect_success 'commit --interactive gives cache-tree on partial commit' '
132132
test_when_finished "git reset --hard" &&
133133
cat <<-\EOT >foo.c &&
134134
int foo()
@@ -162,7 +162,7 @@ test_expect_success PERL 'commit --interactive gives cache-tree on partial commi
162162
test_cache_tree expected.status
163163
'
164164

165-
test_expect_success PERL 'commit -p with shrinking cache-tree' '
165+
test_expect_success 'commit -p with shrinking cache-tree' '
166166
mkdir -p deep/very-long-subdir &&
167167
echo content >deep/very-long-subdir/file &&
168168
git add deep &&

t/t1006-cat-file.sh

Lines changed: 9 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1323,7 +1323,7 @@ test_expect_success 'batch-command flush without --buffer' '
13231323
grep "^fatal:.*flush is only for --buffer mode.*" err
13241324
'
13251325

1326-
script='
1326+
perl_script='
13271327
use warnings;
13281328
use strict;
13291329
use IPC::Open2;
@@ -1345,12 +1345,16 @@ $? == 0 or die "\$?=$?";
13451345

13461346
expect="$hello_oid blob $hello_size"
13471347

1348-
test_expect_success PERL '--batch-check is unbuffered by default' '
1349-
perl -e "$script" -- --batch-check $hello_oid "$expect"
1348+
test_lazy_prereq PERL_IPC_OPEN2 '
1349+
perl -MIPC::Open2 -e "exit 0"
13501350
'
13511351

1352-
test_expect_success PERL '--batch-command info is unbuffered by default' '
1353-
perl -e "$script" -- --batch-command $hello_oid "$expect" "info "
1352+
test_expect_success PERL_IPC_OPEN2 '--batch-check is unbuffered by default' '
1353+
perl -e "$perl_script" -- --batch-check $hello_oid "$expect"
1354+
'
1355+
1356+
test_expect_success PERL_IPC_OPEN2 '--batch-command info is unbuffered by default' '
1357+
perl -e "$perl_script" -- --batch-command $hello_oid "$expect" "info "
13541358
'
13551359

13561360
test_done

t/t7501-commit-basic-functionality.sh

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -46,7 +46,7 @@ test_expect_success 'paths and -a do not mix' '
4646
test_must_fail git commit -m foo -a file
4747
'
4848

49-
test_expect_success PERL 'can use paths with --interactive' '
49+
test_expect_success 'can use paths with --interactive' '
5050
echo bong-o-bong >file &&
5151
# 2: update, 1:st path, that is all, 7: quit
5252
test_write_lines 2 1 "" 7 |
@@ -345,12 +345,12 @@ test_expect_success 'overriding author from command line' '
345345
grep Rubber.Duck output
346346
'
347347

348-
test_expect_success PERL 'interactive add' '
348+
test_expect_success 'interactive add' '
349349
echo 7 | test_must_fail git commit --interactive >out &&
350350
grep "What now" out
351351
'
352352

353-
test_expect_success PERL "commit --interactive doesn't change index if editor aborts" '
353+
test_expect_success "commit --interactive doesn't change index if editor aborts" '
354354
echo zoo >file &&
355355
test_must_fail git diff --exit-code >diff1 &&
356356
test_write_lines u "*" q |

0 commit comments

Comments
 (0)