+6

t/t0008-ignores.sh

··· 5 5 TEST_CREATE_REPO_NO_TEMPLATE=1 6 6 . ./test-lib.sh 7 7 8 8 + if ! test_have_prereq PERL_TEST_HELPERS 9 9 + then 10 10 + skip_all='skipping ignores tests; Perl not available' 11 11 + test_done 12 12 + fi 13 13 + 8 14 init_vars () { 9 15 global_excludes="global-excludes" 10 16 }

+2 -2

t/t0021-conversion.sh

··· 619 619 ) 620 620 ' 621 621 622 622 - test_expect_success 'required process filter should process multiple packets' ' 622 622 + test_expect_success PERL_TEST_HELPERS 'required process filter should process multiple packets' ' 623 623 test_config_global filter.protocol.process "test-tool rot13-filter --log=debug.log clean smudge" && 624 624 test_config_global filter.protocol.required true && 625 625 ··· 684 684 ) 685 685 ' 686 686 687 687 - test_expect_success 'required process filter with clean error should fail' ' 687 687 + test_expect_success PERL_TEST_HELPERS 'required process filter with clean error should fail' ' 688 688 test_config_global filter.protocol.process "test-tool rot13-filter --log=debug.log clean smudge" && 689 689 test_config_global filter.protocol.required true && 690 690 rm -rf repo &&

+6

t/t0210-trace2-normal.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping trace2 tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 # Turn off any inherited trace2 settings for this test. 8 14 sane_unset GIT_TRACE2 GIT_TRACE2_PERF GIT_TRACE2_EVENT 9 15 sane_unset GIT_TRACE2_BRIEF

+6

t/t0211-trace2-perf.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping trace2 tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 # Turn off any inherited trace2 settings for this test. 8 14 sane_unset GIT_TRACE2 GIT_TRACE2_PERF GIT_TRACE2_EVENT 9 15 sane_unset GIT_TRACE2_PERF_BRIEF

+1 -1

t/t0610-reftable-basics.sh

··· 643 643 test_cmp actual expect 644 644 ' 645 645 646 646 - test_expect_success 'basic: can write large commit message' ' 646 646 + test_expect_success PERL_TEST_HELPERS 'basic: can write large commit message' ' 647 647 test_when_finished "rm -rf repo" && 648 648 git init repo && 649 649 perl -e "

+1 -1

t/t0613-reftable-write-options.sh

··· 139 139 ) 140 140 ' 141 141 142 142 - test_expect_success 'small block size fails with large reflog message' ' 142 142 + test_expect_success PERL_TEST_HELPERS 'small block size fails with large reflog message' ' 143 143 test_when_finished "rm -rf repo" && 144 144 git init repo && 145 145 (

+1 -1

t/t1006-cat-file.sh

··· 1270 1270 ' "$@" 1271 1271 } 1272 1272 1273 1273 - test_expect_success 'cat-file --batch-all-objects --batch ignores replace' ' 1273 1273 + test_expect_success PERL_TEST_HELPERS 'cat-file --batch-all-objects --batch ignores replace' ' 1274 1274 git cat-file --batch-all-objects --batch >actual.raw && 1275 1275 extract_batch_output $orig <actual.raw >actual && 1276 1276 {

+3 -3

t/t1007-hash-object.sh

··· 205 205 grep "too-short tree object" err 206 206 ' 207 207 208 208 - test_expect_success 'malformed mode in tree' ' 208 208 + test_expect_success PERL_TEST_HELPERS 'malformed mode in tree' ' 209 209 hex_oid=$(echo foo | git hash-object --stdin -w) && 210 210 bin_oid=$(echo $hex_oid | hex2oct) && 211 211 printf "9100644 \0$bin_oid" >tree-with-malformed-mode && ··· 213 213 grep "malformed mode in tree entry" err 214 214 ' 215 215 216 216 - test_expect_success 'empty filename in tree' ' 216 216 + test_expect_success PERL_TEST_HELPERS 'empty filename in tree' ' 217 217 hex_oid=$(echo foo | git hash-object --stdin -w) && 218 218 bin_oid=$(echo $hex_oid | hex2oct) && 219 219 printf "100644 \0$bin_oid" >tree-with-empty-filename && ··· 221 221 grep "empty filename in tree entry" err 222 222 ' 223 223 224 224 - test_expect_success 'duplicate filename in tree' ' 224 224 + test_expect_success PERL_TEST_HELPERS 'duplicate filename in tree' ' 225 225 hex_oid=$(echo foo | git hash-object --stdin -w) && 226 226 bin_oid=$(echo $hex_oid | hex2oct) && 227 227 {

+2 -2

t/t1010-mktree.sh

··· 41 41 test_cmp tree.withsub actual 42 42 ' 43 43 44 44 - test_expect_success 'ls-tree output in wrong order given to mktree (1)' ' 44 44 + test_expect_success PERL_TEST_HELPERS 'ls-tree output in wrong order given to mktree (1)' ' 45 45 perl -e "print reverse <>" <top | 46 46 git mktree >actual && 47 47 test_cmp tree actual 48 48 ' 49 49 50 50 - test_expect_success 'ls-tree output in wrong order given to mktree (2)' ' 50 50 + test_expect_success PERL_TEST_HELPERS 'ls-tree output in wrong order given to mktree (2)' ' 51 51 perl -e "print reverse <>" <top.withsub | 52 52 git mktree >actual && 53 53 test_cmp tree.withsub actual

+3 -3

t/t1450-fsck.sh

··· 346 346 test_grep ! "fatal: empty filename in tree entry" out 347 347 ' 348 348 349 349 - test_expect_success 'tree entry with type mismatch' ' 349 349 + test_expect_success PERL_TEST_HELPERS 'tree entry with type mismatch' ' 350 350 test_when_finished "remove_object \$blob" && 351 351 test_when_finished "remove_object \$tree" && 352 352 test_when_finished "remove_object \$commit" && ··· 364 364 test_grep ! "dangling blob" out 365 365 ' 366 366 367 367 - test_expect_success 'tree entry with bogus mode' ' 367 367 + test_expect_success PERL_TEST_HELPERS 'tree entry with bogus mode' ' 368 368 test_when_finished "remove_object \$blob" && 369 369 test_when_finished "remove_object \$tree" && 370 370 blob=$(echo blob | git hash-object -w --stdin) && ··· 984 984 985 985 # Corrupt the checksum on the index and then 986 986 # verify that only fsck notices. 987 987 - test_expect_success 'detect corrupt index file in fsck' ' 987 987 + test_expect_success PERL_TEST_HELPERS 'detect corrupt index file in fsck' ' 988 988 cp .git/index .git/index.backup && 989 989 test_when_finished "mv .git/index.backup .git/index" && 990 990 corrupt_index_checksum &&

+3 -3

t/t3300-funny-names.sh

··· 63 63 test_cmp expected current 64 64 ' 65 65 66 66 - test_expect_success 'ls-files -z does not quote funny filename' ' 66 66 + test_expect_success PERL_TEST_HELPERS 'ls-files -z does not quote funny filename' ' 67 67 cat >expected <<-\EOF && 68 68 just space 69 69 no-funny ··· 101 101 test_cmp expected current 102 102 ' 103 103 104 104 - test_expect_success 'diff-index -z does not quote funny filename' ' 104 104 + test_expect_success PERL_TEST_HELPERS 'diff-index -z does not quote funny filename' ' 105 105 cat >expected <<-\EOF && 106 106 A 107 107 tabs ," (dq) and spaces ··· 111 111 test_cmp expected current 112 112 ' 113 113 114 114 - test_expect_success 'diff-tree -z does not quote funny filename' ' 114 114 + test_expect_success PERL_TEST_HELPERS 'diff-tree -z does not quote funny filename' ' 115 115 cat >expected <<-\EOF && 116 116 A 117 117 tabs ," (dq) and spaces

+6

t/t4013-diff-various.sh

··· 11 11 . ./test-lib.sh 12 12 . "$TEST_DIRECTORY"/lib-diff.sh 13 13 14 14 + if ! test_have_prereq PERL_TEST_HELPERS 15 15 + then 16 16 + skip_all='skipping diff various tests; Perl not available' 17 17 + test_done 18 18 + fi 19 19 + 14 20 test_expect_success setup ' 15 21 16 22 GIT_AUTHOR_DATE="2006-06-26 00:00:00 +0000" &&

+15 -15

t/t4014-format-patch.sh

··· 448 448 --- 449 449 EOF 450 450 451 451 - test_expect_success 'no threading' ' 451 451 + test_expect_success PERL_TEST_HELPERS 'no threading' ' 452 452 git checkout side && 453 453 check_threading expect.no-threading main 454 454 ' ··· 466 466 References: <0> 467 467 EOF 468 468 469 469 - test_expect_success 'thread' ' 469 469 + test_expect_success PERL_TEST_HELPERS 'thread' ' 470 470 check_threading expect.thread --thread main 471 471 ' 472 472 473 473 - test_expect_success '--thread overrides format.thread=deep' ' 473 473 + test_expect_success PERL_TEST_HELPERS '--thread overrides format.thread=deep' ' 474 474 test_config format.thread deep && 475 475 check_threading expect.thread --thread main 476 476 ' ··· 490 490 References: <1> 491 491 EOF 492 492 493 493 - test_expect_success 'thread in-reply-to' ' 493 493 + test_expect_success PERL_TEST_HELPERS 'thread in-reply-to' ' 494 494 check_threading expect.in-reply-to --in-reply-to="<test.message>" \ 495 495 --thread main 496 496 ' ··· 512 512 References: <0> 513 513 EOF 514 514 515 515 - test_expect_success 'thread cover-letter' ' 515 515 + test_expect_success PERL_TEST_HELPERS 'thread cover-letter' ' 516 516 check_threading expect.cover-letter --cover-letter --thread main 517 517 ' 518 518 ··· 538 538 <0> 539 539 EOF 540 540 541 541 - test_expect_success 'thread cover-letter in-reply-to' ' 541 541 + test_expect_success PERL_TEST_HELPERS 'thread cover-letter in-reply-to' ' 542 542 check_threading expect.cl-irt --cover-letter \ 543 543 --in-reply-to="<test.message>" --thread main 544 544 ' 545 545 546 546 - test_expect_success 'thread explicit shallow' ' 546 546 + test_expect_success PERL_TEST_HELPERS 'thread explicit shallow' ' 547 547 check_threading expect.cl-irt --cover-letter \ 548 548 --in-reply-to="<test.message>" --thread=shallow main 549 549 ' ··· 562 562 <1> 563 563 EOF 564 564 565 565 - test_expect_success 'thread deep' ' 565 565 + test_expect_success PERL_TEST_HELPERS 'thread deep' ' 566 566 check_threading expect.deep --thread=deep main 567 567 ' 568 568 ··· 584 584 <2> 585 585 EOF 586 586 587 587 - test_expect_success 'thread deep in-reply-to' ' 587 587 + test_expect_success PERL_TEST_HELPERS 'thread deep in-reply-to' ' 588 588 check_threading expect.deep-irt --thread=deep \ 589 589 --in-reply-to="<test.message>" main 590 590 ' ··· 609 609 <2> 610 610 EOF 611 611 612 612 - test_expect_success 'thread deep cover-letter' ' 612 612 + test_expect_success PERL_TEST_HELPERS 'thread deep cover-letter' ' 613 613 check_threading expect.deep-cl --cover-letter --thread=deep main 614 614 ' 615 615 ··· 638 638 <3> 639 639 EOF 640 640 641 641 - test_expect_success 'thread deep cover-letter in-reply-to' ' 641 641 + test_expect_success PERL_TEST_HELPERS 'thread deep cover-letter in-reply-to' ' 642 642 check_threading expect.deep-cl-irt --cover-letter \ 643 643 --in-reply-to="<test.message>" --thread=deep main 644 644 ' 645 645 646 646 - test_expect_success 'thread via config' ' 646 646 + test_expect_success PERL_TEST_HELPERS 'thread via config' ' 647 647 test_config format.thread true && 648 648 check_threading expect.thread main 649 649 ' 650 650 651 651 - test_expect_success 'thread deep via config' ' 651 651 + test_expect_success PERL_TEST_HELPERS 'thread deep via config' ' 652 652 test_config format.thread deep && 653 653 check_threading expect.deep main 654 654 ' 655 655 656 656 - test_expect_success 'thread config + override' ' 656 656 + test_expect_success PERL_TEST_HELPERS 'thread config + override' ' 657 657 test_config format.thread deep && 658 658 check_threading expect.thread --thread main 659 659 ' 660 660 661 661 - test_expect_success 'thread config + --no-thread' ' 661 661 + test_expect_success PERL_TEST_HELPERS 'thread config + --no-thread' ' 662 662 test_config format.thread deep && 663 663 check_threading expect.no-threading --no-thread main 664 664 '

+2 -2

t/t4020-diff-external.sh

··· 239 239 240 240 echo NULZbetweenZwords | perl -pe 'y/Z/\000/' > file 241 241 242 242 - test_expect_success 'force diff with "diff"' ' 242 242 + test_expect_success PERL_TEST_HELPERS 'force diff with "diff"' ' 243 243 after=$(git hash-object file) && 244 244 after=$(git rev-parse --short $after) && 245 245 echo >.gitattributes "file diff" && ··· 300 300 test $(wc -l <crlfed.txt) = $(keep_only_cr <crlfed.txt | wc -c) 301 301 ' 302 302 303 303 - test_expect_success 'diff --cached' ' 303 303 + test_expect_success PERL_TEST_HELPERS 'diff --cached' ' 304 304 test_config core.autocrlf true && 305 305 git add file && 306 306 git update-index --assume-unchanged file &&

+1 -1

t/t4029-diff-trailing-space.sh

··· 18 18 EOF 19 19 exit 1 20 20 21 21 - test_expect_success "$test_description" ' 21 21 + test_expect_success PERL_TEST_HELPERS "$test_description" ' 22 22 printf "\nx\n" > f && 23 23 before=$(git hash-object f) && 24 24 before=$(git rev-parse --short $before) &&

+6

t/t4030-diff-textconv.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping diff textconv tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 find_diff() { 8 14 sed '1,/^index /d' | sed '/^-- $/,$d' 9 15 }

+1 -1

t/t4031-diff-rewrite-binary.sh

··· 70 70 git config diff.foo.textconv "\"$(pwd)\""/dump 71 71 ' 72 72 73 73 - test_expect_success 'rewrite diff respects textconv' ' 73 73 + test_expect_success PERL_TEST_HELPERS 'rewrite diff respects textconv' ' 74 74 git diff -B >diff && 75 75 grep "dissimilarity index" diff && 76 76 grep "^-61" diff &&

+6

t/t4058-diff-duplicates.sh

··· 13 13 14 14 . ./test-lib.sh 15 15 16 16 + if ! test_have_prereq PERL_TEST_HELPERS 17 17 + then 18 18 + skip_all='skipping diff duplicates tests; Perl not available' 19 19 + test_done 20 20 + fi 21 21 + 16 22 # make_tree_entry <mode> <mode> <sha1> 17 23 # 18 24 # We have to rely on perl here because not all printfs understand

+6

t/t4103-apply-binary.sh

··· 11 11 12 12 . ./test-lib.sh 13 13 14 14 + if ! test_have_prereq PERL_TEST_HELPERS 15 15 + then 16 16 + skip_all='skipping apply-binary tests; Perl not available' 17 17 + test_done 18 18 + fi 19 19 + 14 20 test_expect_success 'setup' ' 15 21 cat >file1 <<-\EOF && 16 22 A quick brown fox jumps over the lazy dog.

+6

t/t4116-apply-reverse.sh

··· 10 10 11 11 . ./test-lib.sh 12 12 13 13 + if ! test_have_prereq PERL_TEST_HELPERS 14 14 + then 15 15 + skip_all='skipping apply reverse tests; Perl not available' 16 16 + test_done 17 17 + fi 18 18 + 13 19 test_expect_success setup ' 14 20 15 21 test_write_lines a b c d e f g h i j k l m n >file1 &&

+1 -1

t/t4150-am.sh

··· 1073 1073 test_cmp msg out 1074 1074 ' 1075 1075 1076 1076 - test_expect_success 'am works with multi-line in-body headers' ' 1076 1076 + test_expect_success PERL_TEST_HELPERS 'am works with multi-line in-body headers' ' 1077 1077 FORTY="String that has a length of more than forty characters" && 1078 1078 LONG="$FORTY $FORTY" && 1079 1079 rm -fr .git/rebase-apply &&

+6

t/t4200-rerere.sh

··· 27 27 28 28 . ./test-lib.sh 29 29 30 30 + if ! test_have_prereq PERL_TEST_HELPERS 31 31 + then 32 32 + skip_all='skipping rerere tests; Perl not available' 33 33 + test_done 34 34 + fi 35 35 + 30 36 test_expect_success 'setup' ' 31 37 cat >a1 <<-\EOF && 32 38 Some title

+3 -3

t/t4205-log-pretty-formats.sh

··· 698 698 test_cmp expect actual 699 699 ' 700 700 701 701 - test_expect_success '%(trailers:unfold) unfolds trailers' ' 701 701 + test_expect_success PERL_TEST_HELPERS '%(trailers:unfold) unfolds trailers' ' 702 702 git log --no-walk --pretty="%(trailers:unfold)" >actual && 703 703 { 704 704 unfold <trailers && ··· 707 707 test_cmp expect actual 708 708 ' 709 709 710 710 - test_expect_success ':only and :unfold work together' ' 710 710 + test_expect_success PERL_TEST_HELPERS ':only and :unfold work together' ' 711 711 git log --no-walk --pretty="%(trailers:only,unfold)" >actual && 712 712 git log --no-walk --pretty="%(trailers:unfold,only)" >reverse && 713 713 test_cmp actual reverse && ··· 754 754 test_cmp expect actual 755 755 ' 756 756 757 757 - test_expect_success '%(trailers:key=foo,unfold) properly unfolds' ' 757 757 + test_expect_success PERL_TEST_HELPERS '%(trailers:key=foo,unfold) properly unfolds' ' 758 758 git log --no-walk --pretty="format:%(trailers:key=Signed-Off-by,unfold)" >actual && 759 759 unfold <trailers | grep Signed-off-by >expect && 760 760 test_cmp expect actual

+4 -4

t/t4216-log-bloom.sh

··· 738 738 test_cmp expect.out out 739 739 } 740 740 741 741 - test_expect_success 'Bloom reader notices too-small data chunk' ' 741 741 + test_expect_success PERL_TEST_HELPERS 'Bloom reader notices too-small data chunk' ' 742 742 check_corrupt_graph BDAT clear 00000000 && 743 743 echo "warning: ignoring too-small changed-path chunk" \ 744 744 "(4 < 12) in commit-graph file" >expect.err && 745 745 test_cmp expect.err err 746 746 ' 747 747 748 748 - test_expect_success 'Bloom reader notices out-of-bounds filter offsets' ' 748 748 + test_expect_success PERL_TEST_HELPERS 'Bloom reader notices out-of-bounds filter offsets' ' 749 749 check_corrupt_graph BIDX 12 FFFFFFFF && 750 750 # use grep to avoid depending on exact chunk size 751 751 grep "warning: ignoring out-of-range offset (4294967295) for changed-path filter at pos 3 of .git/objects/info/commit-graph" err 752 752 ' 753 753 754 754 - test_expect_success 'Bloom reader notices too-small index chunk' ' 754 754 + test_expect_success PERL_TEST_HELPERS 'Bloom reader notices too-small index chunk' ' 755 755 # replace the index with a single entry, making most 756 756 # lookups out-of-bounds 757 757 check_corrupt_graph BIDX clear 00000000 && ··· 760 760 test_cmp expect.err err 761 761 ' 762 762 763 763 - test_expect_success 'Bloom reader notices out-of-order index offsets' ' 763 763 + test_expect_success PERL_TEST_HELPERS 'Bloom reader notices out-of-order index offsets' ' 764 764 # we do not know any real offsets, but we can pick 765 765 # something plausible; we should not get to the point of 766 766 # actually reading from the bogus offsets anyway.

+6

t/t5004-archive-corner-cases.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping archive corner cases tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 # the 10knuls.tar file is used to test for an empty git generated tar 8 14 # without having to invoke tar because an otherwise valid empty GNU tar 9 15 # will be considered broken by {Open,Net}BSD tar

+6

t/t5300-pack-object.sh

··· 7 7 8 8 . ./test-lib.sh 9 9 10 10 + if ! test_have_prereq PERL_TEST_HELPERS 11 11 + then 12 12 + skip_all='skipping pack-object tests; Perl not available' 13 13 + test_done 14 14 + fi 15 15 + 10 16 test_expect_success 'setup' ' 11 17 rm -f .git/index* && 12 18 perl -e "print \"a\" x 4096;" >a &&

+2 -2

t/t5303-pack-corruption-resilience.sh

··· 99 99 git cat-file blob $blob_3 > /dev/null 100 100 ' 101 101 102 102 - test_expect_success 'create corruption in data of first object' ' 102 102 + test_expect_success PERL_TEST_HELPERS 'create corruption in data of first object' ' 103 103 create_new_pack && 104 104 git prune-packed && 105 105 chmod +w ${pack}.pack && ··· 156 156 git cat-file blob $blob_3 > /dev/null 157 157 ' 158 158 159 159 - test_expect_success 'create corruption in data of first delta' ' 159 159 + test_expect_success PERL_TEST_HELPERS 'create corruption in data of first delta' ' 160 160 create_new_pack && 161 161 git prune-packed && 162 162 chmod +w ${pack}.pack &&

+1 -1

t/t5310-pack-bitmaps.sh

··· 395 395 ) 396 396 ' 397 397 398 398 - test_expect_success 'pack.preferBitmapTips' ' 398 398 + test_expect_success PERL_TEST_HELPERS 'pack.preferBitmapTips' ' 399 399 git init repo && 400 400 test_when_finished "rm -fr repo" && 401 401 (

+4 -4

t/t5316-pack-delta-depth.sh

··· 87 87 # packing heuristics. We double-check that our test case 88 88 # actually produces a long chain. If it doesn't, it should be 89 89 # adjusted (or scrapped if the heuristics have become too unreliable) 90 90 - test_expect_success 'packing produces a long delta' ' 90 90 + test_expect_success PERL_TEST_HELPERS 'packing produces a long delta' ' 91 91 # Use --window=0 to make sure we are seeing reused deltas, 92 92 # not computing a new long chain. 93 93 pack=$(git pack-objects --all --window=0 </dev/null pack) && ··· 96 96 test_cmp expect actual 97 97 ' 98 98 99 99 - test_expect_success '--depth limits depth' ' 99 99 + test_expect_success PERL_TEST_HELPERS '--depth limits depth' ' 100 100 pack=$(git pack-objects --all --depth=5 </dev/null pack) && 101 101 echo 5 >expect && 102 102 max_chain pack-$pack.pack >actual && 103 103 test_cmp expect actual 104 104 ' 105 105 106 106 - test_expect_success '--depth=0 disables deltas' ' 106 106 + test_expect_success PERL_TEST_HELPERS '--depth=0 disables deltas' ' 107 107 pack=$(git pack-objects --all --depth=0 </dev/null pack) && 108 108 echo 0 >expect && 109 109 max_chain pack-$pack.pack >actual && 110 110 test_cmp expect actual 111 111 ' 112 112 113 113 - test_expect_success 'negative depth disables deltas' ' 113 113 + test_expect_success PERL_TEST_HELPERS 'negative depth disables deltas' ' 114 114 pack=$(git pack-objects --all --depth=-1 </dev/null pack) && 115 115 echo 0 >expect && 116 116 max_chain pack-$pack.pack >actual &&

+6 -6

t/t5318-commit-graph.sh

··· 837 837 test_cmp expect.out out 838 838 } 839 839 840 840 - test_expect_success 'reader notices too-small oid fanout chunk' ' 840 840 + test_expect_success PERL_TEST_HELPERS 'reader notices too-small oid fanout chunk' ' 841 841 # make it big enough that the graph file is plausible, 842 842 # otherwise we hit an earlier check 843 843 check_corrupt_chunk OIDF clear $(printf "000000%02x" $(test_seq 250)) && ··· 848 848 test_cmp expect.err err 849 849 ' 850 850 851 851 - test_expect_success 'reader notices fanout/lookup table mismatch' ' 851 851 + test_expect_success PERL_TEST_HELPERS 'reader notices fanout/lookup table mismatch' ' 852 852 check_corrupt_chunk OIDF 1020 "FFFFFFFF" && 853 853 cat >expect.err <<-\EOF && 854 854 error: commit-graph OID lookup chunk is the wrong size ··· 857 857 test_cmp expect.err err 858 858 ' 859 859 860 860 - test_expect_success 'reader notices out-of-bounds fanout' ' 860 860 + test_expect_success PERL_TEST_HELPERS 'reader notices out-of-bounds fanout' ' 861 861 # Rather than try to corrupt a specific hash, we will just 862 862 # wreck them all. But we cannot just set them all to 0xFFFFFFFF or 863 863 # similar, as they are used for hi/lo starts in a binary search (so if ··· 873 873 test_cmp expect.err err 874 874 ' 875 875 876 876 - test_expect_success 'reader notices too-small commit data chunk' ' 876 876 + test_expect_success PERL_TEST_HELPERS 'reader notices too-small commit data chunk' ' 877 877 check_corrupt_chunk CDAT clear 00000000 && 878 878 cat >expect.err <<-\EOF && 879 879 error: commit-graph commit data chunk is wrong size ··· 882 882 test_cmp expect.err err 883 883 ' 884 884 885 885 - test_expect_success 'reader notices out-of-bounds extra edge' ' 885 885 + test_expect_success PERL_TEST_HELPERS 'reader notices out-of-bounds extra edge' ' 886 886 check_corrupt_chunk EDGE clear && 887 887 cat >expect.err <<-\EOF && 888 888 error: commit-graph extra-edges pointer out of bounds ··· 890 890 test_cmp expect.err err 891 891 ' 892 892 893 893 - test_expect_success 'reader notices too-small generations chunk' ' 893 893 + test_expect_success PERL_TEST_HELPERS 'reader notices too-small generations chunk' ' 894 894 check_corrupt_chunk GDA2 clear 00000000 && 895 895 cat >expect.err <<-\EOF && 896 896 error: commit-graph generations chunk is wrong size

+8 -8

t/t5319-multi-pack-index.sh

··· 1120 1120 corrupt_chunk_file $midx "$@" 1121 1121 } 1122 1122 1123 1123 - test_expect_success 'reader notices too-small oid fanout chunk' ' 1123 1123 + test_expect_success PERL_TEST_HELPERS 'reader notices too-small oid fanout chunk' ' 1124 1124 corrupt_chunk OIDF clear 00000000 && 1125 1125 test_must_fail git log 2>err && 1126 1126 cat >expect <<-\EOF && ··· 1130 1130 test_cmp expect err 1131 1131 ' 1132 1132 1133 1133 - test_expect_success 'reader notices too-small oid lookup chunk' ' 1133 1133 + test_expect_success PERL_TEST_HELPERS 'reader notices too-small oid lookup chunk' ' 1134 1134 corrupt_chunk OIDL clear 00000000 && 1135 1135 test_must_fail git log 2>err && 1136 1136 cat >expect <<-\EOF && ··· 1140 1140 test_cmp expect err 1141 1141 ' 1142 1142 1143 1143 - test_expect_success 'reader notices too-small pack names chunk' ' 1143 1143 + test_expect_success PERL_TEST_HELPERS 'reader notices too-small pack names chunk' ' 1144 1144 # There is no NUL to terminate the name here, so the 1145 1145 # chunk is too short. 1146 1146 corrupt_chunk PNAM clear 70656666 && ··· 1151 1151 test_cmp expect err 1152 1152 ' 1153 1153 1154 1154 - test_expect_success 'reader handles unaligned chunks' ' 1154 1154 + test_expect_success PERL_TEST_HELPERS 'reader handles unaligned chunks' ' 1155 1155 # A 9-byte PNAM means all of the subsequent chunks 1156 1156 # will no longer be 4-byte aligned, but it is still 1157 1157 # a valid one-pack chunk on its own (it is "foo.pack\0"). ··· 1165 1165 test_cmp expect.err err 1166 1166 ' 1167 1167 1168 1168 - test_expect_success 'reader notices too-small object offset chunk' ' 1168 1168 + test_expect_success PERL_TEST_HELPERS 'reader notices too-small object offset chunk' ' 1169 1169 corrupt_chunk OOFF clear 00000000 && 1170 1170 test_must_fail git log 2>err && 1171 1171 cat >expect <<-\EOF && ··· 1175 1175 test_cmp expect err 1176 1176 ' 1177 1177 1178 1178 - test_expect_success 'reader bounds-checks large offset table' ' 1178 1178 + test_expect_success PERL_TEST_HELPERS 'reader bounds-checks large offset table' ' 1179 1179 # re-use the objects64 dir here to cheaply get access to a midx 1180 1180 # with large offsets. 1181 1181 git init repo && ··· 1197 1197 ) 1198 1198 ' 1199 1199 1200 1200 - test_expect_success 'reader notices too-small revindex chunk' ' 1200 1200 + test_expect_success PERL_TEST_HELPERS 'reader notices too-small revindex chunk' ' 1201 1201 # We only get a revindex with bitmaps (and likewise only 1202 1202 # load it when they are asked for). 1203 1203 test_config repack.writeBitmaps true && ··· 1214 1214 test_cmp expect.err err 1215 1215 ' 1216 1216 1217 1217 - test_expect_success 'reader notices out-of-bounds fanout' ' 1217 1217 + test_expect_success PERL_TEST_HELPERS 'reader notices out-of-bounds fanout' ' 1218 1218 # This is similar to the out-of-bounds fanout test in t5318. The values 1219 1219 # in adjacent entries should be large but not identical (they 1220 1220 # are used as hi/lo starts for a binary search, which would then abort

+1 -1

t/t5324-split-commit-graph.sh

··· 401 401 ) 402 402 ' 403 403 404 404 - test_expect_success 'reader bounds-checks base-graph chunk' ' 404 404 + test_expect_success PERL_TEST_HELPERS 'reader bounds-checks base-graph chunk' ' 405 405 git clone --no-hardlinks . corrupt-base-chunk && 406 406 ( 407 407 cd corrupt-base-chunk &&

+1 -1

t/t5326-multi-pack-bitmaps.sh

··· 153 153 ) 154 154 ' 155 155 156 156 - test_expect_success 'pack.preferBitmapTips' ' 156 156 + test_expect_success PERL_TEST_HELPERS 'pack.preferBitmapTips' ' 157 157 git init repo && 158 158 test_when_finished "rm -fr repo" && 159 159 (

+1 -1

t/t5328-commit-graph-64bit-time.sh

··· 74 74 git -C repo-uint32-max commit-graph verify 75 75 ' 76 76 77 77 - test_expect_success 'reader notices out-of-bounds generation overflow' ' 77 77 + test_expect_success PERL_TEST_HELPERS 'reader notices out-of-bounds generation overflow' ' 78 78 graph=.git/objects/info/commit-graph && 79 79 test_when_finished "rm -rf $graph" && 80 80 git commit-graph write --reachable &&

+6

t/t5333-pseudo-merge-bitmaps.sh

··· 6 6 7 7 . ./test-lib.sh 8 8 9 9 + if ! test_have_prereq PERL_TEST_HELPERS 10 10 + then 11 11 + skip_all='skipping pseudo-merge bitmap tests; Perl not available' 12 12 + test_done 13 13 + fi 14 14 + 9 15 test_pseudo_merges () { 10 16 test-tool bitmap dump-pseudo-merges 11 17 }

+1 -1

t/t5400-send-pack.sh

··· 268 268 ' 269 269 } 270 270 271 271 - test_expect_success 'receive-pack de-dupes .have lines' ' 271 271 + test_expect_success PERL_TEST_HELPERS 'receive-pack de-dupes .have lines' ' 272 272 git init shared && 273 273 git -C shared commit --allow-empty -m both && 274 274 git clone -s shared fork &&

+2 -2

t/t5410-receive-pack-alternates.sh

··· 20 20 depacketize | perl -lne '/^(\S+) \.have/ and print $1' 21 21 } 22 22 23 23 - test_expect_success 'with core.alternateRefsCommand' ' 23 23 + test_expect_success PERL_TEST_HELPERS 'with core.alternateRefsCommand' ' 24 24 write_script fork/alternate-refs <<-\EOF && 25 25 git --git-dir="$1" for-each-ref \ 26 26 --format="%(objectname)" \ ··· 33 33 test_cmp expect actual.haves 34 34 ' 35 35 36 36 - test_expect_success 'with core.alternateRefsPrefixes' ' 36 36 + test_expect_success PERL_TEST_HELPERS 'with core.alternateRefsPrefixes' ' 37 37 test_config -C fork core.alternateRefsPrefixes "refs/heads/private" && 38 38 git rev-parse private/branch >expect && 39 39 printf "0000" | git receive-pack fork >actual &&

+6

t/t5503-tagfollow.sh

··· 7 7 8 8 . ./test-lib.sh 9 9 10 10 + if ! test_have_prereq PERL_TEST_HELPERS 11 11 + then 12 12 + skip_all='skipping tagfollow tests; Perl not available' 13 13 + test_done 14 14 + fi 15 15 + 10 16 # End state of the repository: 11 17 # 12 18 # T - tag1 S - tag2

+1 -1

t/t5504-fetch-receive-strict.sh

··· 359 359 grep "Cannot demote unterminatedheader" act 360 360 ' 361 361 362 362 - test_expect_success 'badFilemode is not a strict error' ' 362 362 + test_expect_success PERL_TEST_HELPERS 'badFilemode is not a strict error' ' 363 363 git init --bare badmode.git && 364 364 tree=$( 365 365 cd badmode.git &&

+6

t/t5510-fetch.sh

··· 8 8 . ./test-lib.sh 9 9 . "$TEST_DIRECTORY"/lib-bundle.sh 10 10 11 11 + if ! test_have_prereq PERL_TEST_HELPERS 12 12 + then 13 13 + skip_all='skipping fetch tests; Perl not available' 14 14 + test_done 15 15 + fi 16 16 + 11 17 D=$(pwd) 12 18 13 19 test_expect_success setup '

+6

t/t5532-fetch-proxy.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping fetch proxy tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 test_expect_success 'setup remote repo' ' 8 14 git init remote && 9 15 (cd remote &&

+1 -1

t/t5534-push-signed.sh

··· 177 177 test_cmp expect dst/push-cert-status 178 178 ' 179 179 180 180 - test_expect_success GPG 'inconsistent push options in signed push not allowed' ' 180 180 + test_expect_success GPG,PERL_TEST_HELPERS 'inconsistent push options in signed push not allowed' ' 181 181 # First, invoke receive-pack with dummy input to obtain its preamble. 182 182 prepare_dst && 183 183 git -C dst config receive.certnonceseed sekrit &&

+1 -1

t/t5537-fetch-shallow.sh

··· 256 256 257 257 REPO="$HTTPD_DOCUMENT_ROOT_PATH/repo" 258 258 259 259 - test_expect_success 'shallow fetches check connectivity before writing shallow file' ' 259 259 + test_expect_success PERL_TEST_HELPERS 'shallow fetches check connectivity before writing shallow file' ' 260 260 rm -rf "$REPO" client && 261 261 262 262 git init "$REPO" &&

+7

t/t5551-http-fetch-smart.sh

··· 7 7 8 8 . ./test-lib.sh 9 9 . "$TEST_DIRECTORY"/lib-httpd.sh 10 10 + 11 11 + if ! test_have_prereq PERL_TEST_HELPERS 12 12 + then 13 13 + skip_all='skipping http fetch smart tests; Perl not available' 14 14 + test_done 15 15 + fi 16 16 + 10 17 test "$HTTP_PROTO" = "HTTP/2" && enable_http2 11 18 start_httpd 12 19

+6

t/t5562-http-backend-content-length.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping http backend content tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 test_lazy_prereq GZIP 'gzip --version' 8 14 9 15 verify_http_result() {

+2 -2

t/t5601-clone.sh

··· 649 649 git -C replay.git index-pack -v --stdin <tmp.pack 650 650 ' 651 651 652 652 - test_expect_success 'clone on case-insensitive fs' ' 652 652 + test_expect_success PERL_TEST_HELPERS 'clone on case-insensitive fs' ' 653 653 git init icasefs && 654 654 ( 655 655 cd icasefs && ··· 662 662 ) 663 663 ' 664 664 665 665 - test_expect_success CASE_INSENSITIVE_FS 'colliding file detection' ' 665 665 + test_expect_success PERL_TEST_HELPERS,CASE_INSENSITIVE_FS 'colliding file detection' ' 666 666 grep X icasefs/warning && 667 667 grep x icasefs/warning && 668 668 test_grep "the following paths have collided" icasefs/warning

+3 -3

t/t5616-partial-clone.sh

··· 751 751 }' >"$HTTPD_ROOT_PATH/one-time-perl" 752 752 } 753 753 754 754 - test_expect_success 'upon cloning, check that all refs point to objects' ' 754 754 + test_expect_success PERL_TEST_HELPERS 'upon cloning, check that all refs point to objects' ' 755 755 SERVER="$HTTPD_DOCUMENT_ROOT_PATH/server" && 756 756 rm -rf "$SERVER" repo && 757 757 test_create_repo "$SERVER" && ··· 784 784 ! test -e "$HTTPD_ROOT_PATH/one-time-perl" 785 785 ' 786 786 787 787 - test_expect_success 'when partial cloning, tolerate server not sending target of tag' ' 787 787 + test_expect_success PERL_TEST_HELPERS 'when partial cloning, tolerate server not sending target of tag' ' 788 788 SERVER="$HTTPD_DOCUMENT_ROOT_PATH/server" && 789 789 rm -rf "$SERVER" repo && 790 790 test_create_repo "$SERVER" && ··· 825 825 ! test -e "$HTTPD_ROOT_PATH/one-time-perl" 826 826 ' 827 827 828 828 - test_expect_success 'tolerate server sending REF_DELTA against missing promisor objects' ' 828 828 + test_expect_success PERL_TEST_HELPERS 'tolerate server sending REF_DELTA against missing promisor objects' ' 829 829 SERVER="$HTTPD_DOCUMENT_ROOT_PATH/server" && 830 830 rm -rf "$SERVER" repo && 831 831 test_create_repo "$SERVER" &&

+1 -1

t/t5701-git-serve.sh

··· 220 220 test_cmp expect actual 221 221 ' 222 222 223 223 - test_expect_success 'ignore very large set of prefixes' ' 223 223 + test_expect_success PERL_TEST_HELPERS 'ignore very large set of prefixes' ' 224 224 # generate a large number of ref-prefixes that we expect 225 225 # to match nothing; the value here exceeds TOO_MANY_PREFIXES 226 226 # from ls-refs.c.

+3 -3

t/t5702-protocol-v2.sh

··· 1120 1120 ! grep "git< version 2" log 1121 1121 ' 1122 1122 1123 1123 - test_expect_success 'when server sends "ready", expect DELIM' ' 1123 1123 + test_expect_success PERL_TEST_HELPERS 'when server sends "ready", expect DELIM' ' 1124 1124 rm -rf "$HTTPD_DOCUMENT_ROOT_PATH/http_parent" http_child && 1125 1125 1126 1126 git init "$HTTPD_DOCUMENT_ROOT_PATH/http_parent" && ··· 1140 1140 test_grep "expected packfile to be sent after .ready." err 1141 1141 ' 1142 1142 1143 1143 - test_expect_success 'when server does not send "ready", expect FLUSH' ' 1143 1143 + test_expect_success PERL_TEST_HELPERS 'when server does not send "ready", expect FLUSH' ' 1144 1144 rm -rf "$HTTPD_DOCUMENT_ROOT_PATH/http_parent" http_child log && 1145 1145 1146 1146 git init "$HTTPD_DOCUMENT_ROOT_PATH/http_parent" && ··· 1446 1446 grep "$COMMON" out 1447 1447 ' 1448 1448 1449 1449 - test_expect_success 'http:// --negotiate-only without wait-for-done support' ' 1449 1449 + test_expect_success PERL_TEST_HELPERS 'http:// --negotiate-only without wait-for-done support' ' 1450 1450 SERVER="server" && 1451 1451 URI="$HTTPD_URL/one_time_perl/server" && 1452 1452

+6

t/t5703-upload-pack-ref-in-want.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping upload-pack ref-in-want tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 get_actual_refs () { 8 14 sed -n -e '/wanted-refs/,/0001/{ 9 15 /wanted-refs/d

+6

t/t5710-promisor-remote-capability.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping promisor remote capabilities tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 GIT_TEST_MULTI_PACK_INDEX=0 8 14 GIT_TEST_MULTI_PACK_INDEX_WRITE_INCREMENTAL=0 9 15

+6

t/t6002-rev-list-bisect.sh

··· 7 7 . ./test-lib.sh 8 8 . "$TEST_DIRECTORY"/lib-t6000.sh # t6xxx specific functions 9 9 10 10 + if ! test_have_prereq PERL_TEST_HELPERS 11 11 + then 12 12 + skip_all='skipping rev-list bisect tests; Perl not available' 13 13 + test_done 14 14 + fi 15 15 + 10 16 # usage: test_bisection max-diff bisect-option head ^prune... 11 17 # 12 18 # e.g. test_bisection 1 --bisect l1 ^l0

+6

t/t6003-rev-list-topo-order.sh

··· 8 8 . ./test-lib.sh 9 9 . "$TEST_DIRECTORY"/lib-t6000.sh # t6xxx specific functions 10 10 11 11 + if ! test_have_prereq PERL_TEST_HELPERS 12 12 + then 13 13 + skip_all='skipping rev-list topo-order tests; Perl not available' 14 14 + test_done 15 15 + fi 16 16 + 11 17 list_duplicates() 12 18 { 13 19 "$@" | sort | uniq -d

+6

t/t6011-rev-list-with-bad-commit.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping rev-list with bad commit tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 # Note: 8 14 # - compression level is set to zero to make "corruptions" easier to perform 9 15 # - reflog is disabled to avoid extra references which would twart the test

+2 -2

t/t6013-rev-list-reverse-parents.sh

··· 26 26 commit five 27 27 ' 28 28 29 29 - test_expect_success '--reverse --parents --full-history combines correctly' ' 29 29 + test_expect_success PERL_TEST_HELPERS '--reverse --parents --full-history combines correctly' ' 30 30 git rev-list --parents --full-history main -- foo | 31 31 perl -e "print reverse <>" > expected && 32 32 git rev-list --reverse --parents --full-history main -- foo \ ··· 34 34 test_cmp expected actual 35 35 ' 36 36 37 37 - test_expect_success '--boundary does too' ' 37 37 + test_expect_success PERL_TEST_HELPERS '--boundary does too' ' 38 38 git rev-list --boundary --parents --full-history main ^root -- foo | 39 39 perl -e "print reverse <>" > expected && 40 40 git rev-list --boundary --reverse --parents --full-history \

+6

t/t6102-rev-list-unexpected-objects.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping rev-list unexpected objects tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 test_expect_success 'setup well-formed objects' ' 8 14 blob="$(printf "foo" | git hash-object -w --stdin)" && 9 15 tree="$(printf "100644 blob $blob\tfoo" | git mktree)" &&

+6

t/t6115-rev-list-du.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping rev-list disk usage tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 # we want a mix of reachable and unreachable, as well as 8 14 # objects in the bitmapped pack and some outside of it 9 15 test_expect_success 'set up repository' '

+6

t/t6300-for-each-ref.sh

··· 10 10 . "$TEST_DIRECTORY"/lib-gpg.sh 11 11 . "$TEST_DIRECTORY"/lib-terminal.sh 12 12 13 13 + if ! test_have_prereq PERL_TEST_HELPERS 14 14 + then 15 15 + skip_all='skipping for-each-ref tests; Perl not available' 16 16 + test_done 17 17 + fi 18 18 + 13 19 # Mon Jul 3 23:18:43 2006 +0000 14 20 datestamp=1151968723 15 21 setdate_and_increment () {

+1 -1

t/t7006-pager.sh

··· 661 661 export GIT_TRACE2_BRIEF 662 662 ' 663 663 664 664 - test_expect_success 'setup large log output' ' 664 664 + test_expect_success PERL_TEST_HELPERS 'setup large log output' ' 665 665 perl -e " 666 666 print \"this is a long commit message\" x 50000 667 667 " >commit-msg &&

+6

t/t7416-submodule-dash-url.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping submodule dash URL tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 test_expect_success 'setup' ' 8 14 git config --global protocol.file.allow always 9 15 '

+1 -1

t/t7508-status.sh

··· 1064 1064 test_cmp expect output 1065 1065 ' 1066 1066 1067 1067 - test_expect_success 'status -z implies porcelain' ' 1067 1067 + test_expect_success PERL_TEST_HELPERS 'status -z implies porcelain' ' 1068 1068 git status --porcelain | 1069 1069 perl -pe "s/\012/\000/g" >expect && 1070 1070 git status -z >output &&

+6

t/t7815-grep-binary.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping grep binary tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 test_expect_success 'setup' " 8 14 echo 'binaryQfileQm[*]cQ*æQð' | q_to_nul >a && 9 15 git add a &&

+6

t/t8001-annotate.sh

··· 7 7 TEST_CREATE_REPO_NO_TEMPLATE=1 8 8 . ./test-lib.sh 9 9 10 10 + if ! test_have_prereq PERL_TEST_HELPERS 11 11 + then 12 12 + skip_all='skipping annotate tests; Perl not available' 13 13 + test_done 14 14 + fi 15 15 + 10 16 PROG='git annotate' 11 17 . "$TEST_DIRECTORY"/annotate-tests.sh 12 18

+6

t/t8002-blame.sh

··· 7 7 TEST_CREATE_REPO_NO_TEMPLATE=1 8 8 . ./test-lib.sh 9 9 10 10 + if ! test_have_prereq PERL_TEST_HELPERS 11 11 + then 12 12 + skip_all='skipping blame colors tests; Perl not available' 13 13 + test_done 14 14 + fi 15 15 + 10 16 PROG='git blame -c' 11 17 . "$TEST_DIRECTORY"/annotate-tests.sh 12 18

+6

t/t8006-blame-textconv.sh

··· 4 4 5 5 . ./test-lib.sh 6 6 7 7 + if ! test_have_prereq PERL_TEST_HELPERS 8 8 + then 9 9 + skip_all='skipping blame textconv tests; Perl not available' 10 10 + test_done 11 11 + fi 12 12 + 7 13 find_blame() { 8 14 sed -e 's/^[^(]*//' 9 15 }

+3 -3

t/t8011-blame-split-file.sh

··· 81 81 git blame --root -C --$output combined >output 82 82 ' 83 83 84 84 - test_expect_success "$output output finds correct commits" ' 84 84 + test_expect_success PERL_TEST_HELPERS "$output output finds correct commits" ' 85 85 generate_expect >expect <<-\EOF && 86 86 5 base 87 87 1 modified ··· 93 93 test_cmp expect actual 94 94 ' 95 95 96 96 - test_expect_success "$output output shows correct filenames" ' 96 96 + test_expect_success PERL_TEST_HELPERS "$output output shows correct filenames" ' 97 97 generate_expect >expect <<-\EOF && 98 98 11 one 99 99 11 two ··· 102 102 test_cmp expect actual 103 103 ' 104 104 105 105 - test_expect_success "$output output shows correct previous pointer" ' 105 105 + test_expect_success PERL_TEST_HELPERS "$output output shows correct previous pointer" ' 106 106 generate_expect >expect <<-EOF && 107 107 5 NONE 108 108 1 $(git rev-parse modified^) one

+6

t/t8012-blame-colors.sh

··· 7 7 TEST_CREATE_REPO_NO_TEMPLATE=1 8 8 . ./test-lib.sh 9 9 10 10 + if ! test_have_prereq PERL_TEST_HELPERS 11 11 + then 12 12 + skip_all='skipping blame colors tests; Perl not available' 13 13 + test_done 14 14 + fi 15 15 + 10 16 PROG='git blame -c' 11 17 . "$TEST_DIRECTORY"/annotate-tests.sh 12 18

+2 -2

t/t9137-git-svn-dcommit-clobber-series.sh

··· 15 15 test -e file 16 16 ' 17 17 18 18 - test_expect_success '(supposedly) non-conflicting change from SVN' ' 18 18 + test_expect_success PERL_TEST_HELPERS '(supposedly) non-conflicting change from SVN' ' 19 19 test x"$(sed -n -e 58p < file)" = x58 && 20 20 test x"$(sed -n -e 61p < file)" = x61 && 21 21 svn_cmd co "$svnrepo" tmp && ··· 37 37 git commit -m bye-life life 38 38 " 39 39 40 40 - test_expect_success 'change file but in unrelated area' " 40 40 + test_expect_success PERL_TEST_HELPERS 'change file but in unrelated area' " 41 41 test x\"\$(sed -n -e 4p < file)\" = x4 && 42 42 test x\"\$(sed -n -e 7p < file)\" = x7 && 43 43 perl -i.bak -p -e 's/^4\$/4444/' file &&

+1 -1

t/t9350-fast-export.sh

··· 610 610 (cd result && git show main:foo) 611 611 ' 612 612 613 613 - test_expect_success 'fast-export quotes pathnames' ' 613 613 + test_expect_success PERL_TEST_HELPERS 'fast-export quotes pathnames' ' 614 614 git init crazy-paths && 615 615 test_config -C crazy-paths core.protectNTFS false && 616 616 (cd crazy-paths &&

+1 -1

t/t9850-shell.sh

··· 29 29 test_cmp expect actual 30 30 ' 31 31 32 32 - test_expect_success 'shell complains of overlong commands' ' 32 32 + test_expect_success PERL_TEST_HELPERS 'shell complains of overlong commands' ' 33 33 perl -e "print \"a\" x 2**12 for (0..2**19)" | 34 34 test_must_fail git shell 2>err && 35 35 grep "too long" err

+1

t/test-lib.sh

··· 1706 1706 test -z "$NO_GETTEXT" && test_set_prereq GETTEXT 1707 1707 test -n "$SANITIZE_LEAK" && test_set_prereq SANITIZE_LEAK 1708 1708 test -n "$GIT_VALGRIND_ENABLED" && test_set_prereq VALGRIND 1709 1709 + test -n "$PERL_PATH" && test_set_prereq PERL_TEST_HELPERS 1709 1710 1710 1711 if test -z "$GIT_TEST_CHECK_CACHE_TREE" 1711 1712 then