mirrors/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-10-28 12:59:41 +01:00
Code Activity

tests: enclose $PERL_PATH in double quotes

Browse source 
Otherwise it will be split at a space after "Program" when it is set
to "\\Program Files\perl" or something silly like that.

Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
Junio C Hamano 2012-06-12 09:49:59 -07:00
parent 770bf6c5e2
commit 7096b6486e
24 changed files with 41 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
t/t1010-mktree.sh
View file

@ -42,13 +42,13 @@ test_expect_success 'ls-tree piped to mktree (2)' '
' '
test_expect_success 'ls-tree output in wrong order given to mktree (1)' ' test_expect_success 'ls-tree output in wrong order given to mktree (1)' '
$PERL_PATH -e "print reverse <>" <top | "$PERL_PATH" -e "print reverse <>" <top |
git mktree >actual && git mktree >actual &&
test_cmp tree actual test_cmp tree actual
' '
test_expect_success 'ls-tree output in wrong order given to mktree (2)' ' test_expect_success 'ls-tree output in wrong order given to mktree (2)' '
$PERL_PATH -e "print reverse <>" <top.withsub | "$PERL_PATH" -e "print reverse <>" <top.withsub |
git mktree >actual && git mktree >actual &&
test_cmp tree.withsub actual test_cmp tree.withsub actual
' '

6
t/t3300-funny-names.sh
View file

@ -71,7 +71,7 @@ test_expect_success 'ls-files -z does not quote funny filename' '
tabs ," (dq) and spaces tabs ," (dq) and spaces
EOF EOF
git ls-files -z >ls-files.z && git ls-files -z >ls-files.z &&
$PERL_PATH -pe "y/\000/\012/" <ls-files.z >current && "$PERL_PATH" -pe "y/\000/\012/" <ls-files.z >current &&
test_cmp expected current test_cmp expected current
' '
@ -108,7 +108,7 @@ test_expect_success 'diff-index -z does not quote funny filename' '
tabs ," (dq) and spaces tabs ," (dq) and spaces
EOF EOF
git diff-index -z --name-status $t0 >diff-index.z && git diff-index -z --name-status $t0 >diff-index.z &&
$PERL_PATH -pe "y/\000/\012/" <diff-index.z >current && "$PERL_PATH" -pe "y/\000/\012/" <diff-index.z >current &&
test_cmp expected current test_cmp expected current
' '
@ -118,7 +118,7 @@ test_expect_success 'diff-tree -z does not quote funny filename' '
tabs ," (dq) and spaces tabs ," (dq) and spaces
EOF EOF
git diff-tree -z --name-status $t0 $t1 >diff-tree.z && git diff-tree -z --name-status $t0 $t1 >diff-tree.z &&
$PERL_PATH -pe y/\\000/\\012/ <diff-tree.z >current && "$PERL_PATH" -pe y/\\000/\\012/ <diff-tree.z >current &&
test_cmp expected current test_cmp expected current
' '

2
t/t4014-format-patch.sh
View file

@ -243,7 +243,7 @@ check_threading () {
(git format-patch --stdout "$@"; echo $? > status.out) | (git format-patch --stdout "$@"; echo $? > status.out) |
# Prints everything between the Message-ID and In-Reply-To, # Prints everything between the Message-ID and In-Reply-To,
# and replaces all Message-ID-lookalikes by a sequence number # and replaces all Message-ID-lookalikes by a sequence number
$PERL_PATH -ne ' "$PERL_PATH" -ne '
if (/^(message-id|references|in-reply-to)/i) { if (/^(message-id|references|in-reply-to)/i) {
$printing = 1; $printing = 1;
} elsif (/^\S/) { } elsif (/^\S/) {

2
t/t4020-diff-external.sh
View file

@ -118,7 +118,7 @@ test_expect_success 'no diff with -diff' '
git diff | grep Binary git diff | grep Binary
' '
echo NULZbetweenZwords | $PERL_PATH -pe 'y/Z/\000/' > file echo NULZbetweenZwords | "$PERL_PATH" -pe 'y/Z/\000/' > file
test_expect_success 'force diff with "diff"' ' test_expect_success 'force diff with "diff"' '
echo >.gitattributes "file diff" && echo >.gitattributes "file diff" &&

2
t/t4029-diff-trailing-space.sh
View file

@ -27,7 +27,7 @@ test_expect_success \
git config --bool diff.suppressBlankEmpty true && git config --bool diff.suppressBlankEmpty true &&
git diff f > actual && git diff f > actual &&
test_cmp exp actual && test_cmp exp actual &&
$PERL_PATH -i.bak -p -e "s/^\$/ /" exp && "$PERL_PATH" -i.bak -p -e "s/^\$/ /" exp &&
git config --bool diff.suppressBlankEmpty false && git config --bool diff.suppressBlankEmpty false &&
git diff f > actual && git diff f > actual &&
test_cmp exp actual && test_cmp exp actual &&

2
t/t4030-diff-textconv.sh
View file

@ -21,7 +21,7 @@ EOF
cat >hexdump <<'EOF' cat >hexdump <<'EOF'
#!/bin/sh #!/bin/sh
$PERL_PATH -e '$/ = undef; $_ = <>; s/./ord($&)/ge; print $_' < "$1" "$PERL_PATH" -e '$/ = undef; $_ = <>; s/./ord($&)/ge; print $_' < "$1"
EOF EOF
chmod +x hexdump chmod +x hexdump

2
t/t4031-diff-rewrite-binary.sh
View file

@ -60,7 +60,7 @@ test_expect_success 'diff --stat counts binary rewrite as 0 lines' '
{ {
echo "#!$SHELL_PATH" echo "#!$SHELL_PATH"
cat <<'EOF' cat <<'EOF'
$PERL_PATH -e '$/ = undef; $_ = <>; s/./ord($&)/ge; print $_' < "$1" "$PERL_PATH" -e '$/ = undef; $_ = <>; s/./ord($&)/ge; print $_' < "$1"
EOF EOF
} >dump } >dump
chmod +x dump chmod +x dump

4
t/t4103-apply-binary.sh
View file

@ -25,10 +25,10 @@ test_expect_success 'setup' "
git commit -m 'Initial Version' 2>/dev/null && git commit -m 'Initial Version' 2>/dev/null &&
git checkout -b binary && git checkout -b binary &&
$PERL_PATH -pe 'y/x/\000/' <file1 >file3 && "$PERL_PATH" -pe 'y/x/\000/' <file1 >file3 &&
cat file3 >file4 && cat file3 >file4 &&
git add file2 && git add file2 &&
$PERL_PATH -pe 'y/\000/v/' <file3 >file1 && "$PERL_PATH" -pe 'y/\000/v/' <file3 >file1 &&
rm -f file2 && rm -f file2 &&
git update-index --add --remove file1 file2 file3 file4 && git update-index --add --remove file1 file2 file3 file4 &&
git commit -m 'Second Version' && git commit -m 'Second Version' &&

4
t/t4116-apply-reverse.sh
View file

@ -12,14 +12,14 @@ test_description='git apply in reverse
test_expect_success setup ' test_expect_success setup '
for i in a b c d e f g h i j k l m n; do echo $i; done >file1 && for i in a b c d e f g h i j k l m n; do echo $i; done >file1 &&
$PERL_PATH -pe "y/ijk/\\000\\001\\002/" <file1 >file2 && "$PERL_PATH" -pe "y/ijk/\\000\\001\\002/" <file1 >file2 &&
git add file1 file2 && git add file1 file2 &&
git commit -m initial && git commit -m initial &&
git tag initial && git tag initial &&
for i in a b c g h i J K L m o n p q; do echo $i; done >file1 && for i in a b c g h i J K L m o n p q; do echo $i; done >file1 &&
$PERL_PATH -pe "y/mon/\\000\\001\\002/" <file1 >file2 && "$PERL_PATH" -pe "y/mon/\\000\\001\\002/" <file1 >file2 &&
git commit -a -m second && git commit -a -m second &&
git tag second && git tag second &&

8
t/t4200-rerere.sh
View file

@ -78,7 +78,7 @@ test_expect_success 'activate rerere, old style (conflicting merge)' '
test_might_fail git config --unset rerere.enabled && test_might_fail git config --unset rerere.enabled &&
test_must_fail git merge first && test_must_fail git merge first &&
sha1=$($PERL_PATH -pe "s/ .*//" .git/MERGE_RR) && sha1=$("$PERL_PATH" -pe "s/ .*//" .git/MERGE_RR) &&
rr=.git/rr-cache/$sha1 && rr=.git/rr-cache/$sha1 &&
grep "^=======\$" $rr/preimage && grep "^=======\$" $rr/preimage &&
! test -f $rr/postimage && ! test -f $rr/postimage &&
@ -91,7 +91,7 @@ test_expect_success 'rerere.enabled works, too' '
git reset --hard && git reset --hard &&
test_must_fail git merge first && test_must_fail git merge first &&
sha1=$($PERL_PATH -pe "s/ .*//" .git/MERGE_RR) && sha1=$("$PERL_PATH" -pe "s/ .*//" .git/MERGE_RR) &&
rr=.git/rr-cache/$sha1 && rr=.git/rr-cache/$sha1 &&
grep ^=======$ $rr/preimage grep ^=======$ $rr/preimage
' '
@ -101,7 +101,7 @@ test_expect_success 'set up rr-cache' '
git config rerere.enabled true && git config rerere.enabled true &&
git reset --hard && git reset --hard &&
test_must_fail git merge first && test_must_fail git merge first &&
sha1=$($PERL_PATH -pe "s/ .*//" .git/MERGE_RR) && sha1=$("$PERL_PATH" -pe "s/ .*//" .git/MERGE_RR) &&
rr=.git/rr-cache/$sha1 rr=.git/rr-cache/$sha1
' '
@ -185,7 +185,7 @@ test_expect_success 'rerere updates postimage timestamp' '
test_expect_success 'rerere clear' ' test_expect_success 'rerere clear' '
rm $rr/postimage && rm $rr/postimage &&
echo "$sha1 a1" | $PERL_PATH -pe "y/\012/\000/" >.git/MERGE_RR && echo "$sha1 a1" | "$PERL_PATH" -pe "y/\012/\000/" >.git/MERGE_RR &&
git rerere clear && git rerere clear &&
! test -d $rr ! test -d $rr
' '

8
t/t5300-pack-object.sh
View file

@ -13,9 +13,9 @@ TRASH=`pwd`
test_expect_success \ test_expect_success \
'setup' \ 'setup' \
'rm -f .git/index* && 'rm -f .git/index* &&
$PERL_PATH -e "print \"a\" x 4096;" > a && "$PERL_PATH" -e "print \"a\" x 4096;" > a &&
$PERL_PATH -e "print \"b\" x 4096;" > b && "$PERL_PATH" -e "print \"b\" x 4096;" > b &&
$PERL_PATH -e "print \"c\" x 4096;" > c && "$PERL_PATH" -e "print \"c\" x 4096;" > c &&
test-genrandom "seed a" 2097152 > a_big && test-genrandom "seed a" 2097152 > a_big &&
test-genrandom "seed b" 2097152 > b_big && test-genrandom "seed b" 2097152 > b_big &&
git update-index --add a a_big b b_big c && git update-index --add a a_big b b_big c &&
@ -129,7 +129,7 @@ test_expect_success \
cd "$TRASH" cd "$TRASH"
test_expect_success 'compare delta flavors' ' test_expect_success 'compare delta flavors' '
$PERL_PATH -e '\'' "$PERL_PATH" -e '\''
defined($_ = -s $_) or die for @ARGV; defined($_ = -s $_) or die for @ARGV;
exit 1 if $ARGV[0] <= $ARGV[1]; exit 1 if $ARGV[0] <= $ARGV[1];
'\'' test-2-$packname_2.pack test-3-$packname_3.pack '\'' test-2-$packname_2.pack test-3-$packname_3.pack

4
t/t5303-pack-corruption-resilience.sh
View file

@ -98,7 +98,7 @@ test_expect_success \
'create_new_pack && 'create_new_pack &&
git prune-packed && git prune-packed &&
chmod +w ${pack}.pack && chmod +w ${pack}.pack &&
$PERL_PATH -i.bak -pe "s/ base /abcdef/" ${pack}.pack && "$PERL_PATH" -i.bak -pe "s/ base /abcdef/" ${pack}.pack &&
test_must_fail git cat-file blob $blob_1 > /dev/null && test_must_fail git cat-file blob $blob_1 > /dev/null &&
test_must_fail git cat-file blob $blob_2 > /dev/null && test_must_fail git cat-file blob $blob_2 > /dev/null &&
test_must_fail git cat-file blob $blob_3 > /dev/null' test_must_fail git cat-file blob $blob_3 > /dev/null'
@ -155,7 +155,7 @@ test_expect_success \
'create_new_pack && 'create_new_pack &&
git prune-packed && git prune-packed &&
chmod +w ${pack}.pack && chmod +w ${pack}.pack &&
$PERL_PATH -i.bak -pe "s/ delta1 /abcdefgh/" ${pack}.pack && "$PERL_PATH" -i.bak -pe "s/ delta1 /abcdefgh/" ${pack}.pack &&
git cat-file blob $blob_1 > /dev/null && git cat-file blob $blob_1 > /dev/null &&
test_must_fail git cat-file blob $blob_2 > /dev/null && test_must_fail git cat-file blob $blob_2 > /dev/null &&
test_must_fail git cat-file blob $blob_3 > /dev/null' test_must_fail git cat-file blob $blob_3 > /dev/null'

2
t/t5532-fetch-proxy.sh
View file

@ -15,7 +15,7 @@ test_expect_success 'setup remote repo' '
cat >proxy <<'EOF' cat >proxy <<'EOF'
#!/bin/sh #!/bin/sh
echo >&2 "proxying for $*" echo >&2 "proxying for $*"
cmd=`$PERL_PATH -e ' cmd=`"$PERL_PATH" -e '
read(STDIN, $buf, 4); read(STDIN, $buf, 4);
my $n = hex($buf) - 4; my $n = hex($buf) - 4;
read(STDIN, $buf, $n); read(STDIN, $buf, $n);

2
t/t5551-http-fetch.sh
View file

@ -130,7 +130,7 @@ test_expect_success EXPENSIVE 'create 50,000 tags in the repo' '
done | git fast-import --export-marks=marks && done | git fast-import --export-marks=marks &&
# now assign tags to all the dangling commits we created above # now assign tags to all the dangling commits we created above
tag=$($PERL_PATH -e "print \"bla\" x 30") && tag=$("$PERL_PATH" -e "print \"bla\" x 30") &&
sed -e "s/^:\(.\+\) \(.\+\)$/\2 refs\/tags\/$tag-\1/" <marks >>packed-refs sed -e "s/^:\(.\+\) \(.\+\)$/\2 refs\/tags\/$tag-\1/" <marks >>packed-refs
) )
' '

2
t/t6011-rev-list-with-bad-commit.sh
View file

@ -37,7 +37,7 @@ test_expect_success 'verify number of revisions' \
test_expect_success 'corrupt second commit object' \ test_expect_success 'corrupt second commit object' \
' '
$PERL_PATH -i.bak -pe "s/second commit/socond commit/" .git/objects/pack/*.pack && "$PERL_PATH" -i.bak -pe "s/second commit/socond commit/" .git/objects/pack/*.pack &&
test_must_fail git fsck --full test_must_fail git fsck --full
' '

4
t/t6013-rev-list-reverse-parents.sh
View file

@ -25,7 +25,7 @@ test_expect_success 'set up --reverse example' '
test_expect_success '--reverse --parents --full-history combines correctly' ' test_expect_success '--reverse --parents --full-history combines correctly' '
git rev-list --parents --full-history master -- foo | git rev-list --parents --full-history master -- foo |
$PERL_PATH -e "print reverse <>" > expected && "$PERL_PATH" -e "print reverse <>" > expected &&
git rev-list --reverse --parents --full-history master -- foo \ git rev-list --reverse --parents --full-history master -- foo \
> actual && > actual &&
test_cmp actual expected test_cmp actual expected
@ -33,7 +33,7 @@ test_expect_success '--reverse --parents --full-history combines correctly' '
test_expect_success '--boundary does too' ' test_expect_success '--boundary does too' '
git rev-list --boundary --parents --full-history master ^root -- foo | git rev-list --boundary --parents --full-history master ^root -- foo |
$PERL_PATH -e "print reverse <>" > expected && "$PERL_PATH" -e "print reverse <>" > expected &&
git rev-list --boundary --reverse --parents --full-history \ git rev-list --boundary --reverse --parents --full-history \
master ^root -- foo > actual && master ^root -- foo > actual &&
test_cmp actual expected test_cmp actual expected

2
t/t7508-status.sh
View file

@ -941,7 +941,7 @@ test_expect_success 'status -s submodule summary (clean submodule)' '
test_expect_success 'status -z implies porcelain' ' test_expect_success 'status -z implies porcelain' '
git status --porcelain | git status --porcelain |
$PERL_PATH -pe "s/\012/\000/g" >expect && "$PERL_PATH" -pe "s/\012/\000/g" >expect &&
git status -z >output && git status -z >output &&
test_cmp expect output test_cmp expect output
' '

2
t/t8006-blame-textconv.sh
View file

@ -10,7 +10,7 @@ find_blame() {
cat >helper <<'EOF' cat >helper <<'EOF'
#!/bin/sh #!/bin/sh
grep -q '^bin: ' "$1" || { echo "E: $1 is not \"binary\" file" 1>&2; exit 1; } grep -q '^bin: ' "$1" || { echo "E: $1 is not \"binary\" file" 1>&2; exit 1; }
$PERL_PATH -p -e 's/^bin: /converted: /' "$1" "$PERL_PATH" -p -e 's/^bin: /converted: /' "$1"
EOF EOF
chmod +x helper chmod +x helper

2
t/t9129-git-svn-i18n-commitencoding.sh
View file

@ -29,7 +29,7 @@ fi
compare_svn_head_with () { compare_svn_head_with () {
# extract just the log message and strip out committer info. # extract just the log message and strip out committer info.
# don't use --limit here since svn 1.1.x doesn't have it, # don't use --limit here since svn 1.1.x doesn't have it,
LC_ALL="$a_utf8_locale" svn log `git svn info --url` | $PERL_PATH -w -e ' LC_ALL="$a_utf8_locale" svn log `git svn info --url` | "$PERL_PATH" -w -e '
use bytes; use bytes;
$/ = ("-"x72) . "\n"; $/ = ("-"x72) . "\n";
my @x = <STDIN>; my @x = <STDIN>;

8
t/t9137-git-svn-dcommit-clobber-series.sh
View file

@ -20,8 +20,8 @@ test_expect_success '(supposedly) non-conflicting change from SVN' '
test x"`sed -n -e 61p < file`" = x61 && test x"`sed -n -e 61p < file`" = x61 &&
svn_cmd co "$svnrepo" tmp && svn_cmd co "$svnrepo" tmp &&
(cd tmp && (cd tmp &&
$PERL_PATH -i.bak -p -e "s/^58$/5588/" file && "$PERL_PATH" -i.bak -p -e "s/^58$/5588/" file &&
$PERL_PATH -i.bak -p -e "s/^61$/6611/" file && "$PERL_PATH" -i.bak -p -e "s/^61$/6611/" file &&
poke file && poke file &&
test x"`sed -n -e 58p < file`" = x5588 && test x"`sed -n -e 58p < file`" = x5588 &&
test x"`sed -n -e 61p < file`" = x6611 && test x"`sed -n -e 61p < file`" = x6611 &&
@ -40,8 +40,8 @@ test_expect_success 'some unrelated changes to git' "
test_expect_success 'change file but in unrelated area' " test_expect_success 'change file but in unrelated area' "
test x\"\`sed -n -e 4p < file\`\" = x4 && test x\"\`sed -n -e 4p < file\`\" = x4 &&
test x\"\`sed -n -e 7p < file\`\" = x7 && test x\"\`sed -n -e 7p < file\`\" = x7 &&
$PERL_PATH -i.bak -p -e 's/^4\$/4444/' file && "$PERL_PATH" -i.bak -p -e 's/^4\$/4444/' file &&
$PERL_PATH -i.bak -p -e 's/^7\$/7777/' file && "$PERL_PATH" -i.bak -p -e 's/^7\$/7777/' file &&
test x\"\`sed -n -e 4p < file\`\" = x4444 && test x\"\`sed -n -e 4p < file\`\" = x4444 &&
test x\"\`sed -n -e 7p < file\`\" = x7777 && test x\"\`sed -n -e 7p < file\`\" = x7777 &&
git commit -m '4 => 4444, 7 => 7777' file && git commit -m '4 => 4444, 7 => 7777' file &&

2
t/t9300-fast-import.sh
View file

@ -12,7 +12,7 @@ test_description='test git fast-import utility'
# This could be written as "head -c $1", but IRIX "head" does not # This could be written as "head -c $1", but IRIX "head" does not
# support the -c option. # support the -c option.
head_c () { head_c () {
$PERL_PATH -e ' "$PERL_PATH" -e '
my $len = $ARGV[1]; my $len = $ARGV[1];
while ($len > 0) { while ($len > 0) {
my $s; my $s;

2
t/t9350-fast-export.sh
View file

@ -424,7 +424,7 @@ test_expect_success 'fast-export quotes pathnames' '
--cacheinfo 100644 $blob "path with \\backslash" \ --cacheinfo 100644 $blob "path with \\backslash" \
--cacheinfo 100644 $blob "path with space" && --cacheinfo 100644 $blob "path with space" &&
git commit -m addition && git commit -m addition &&
git ls-files -z -s | $PERL_PATH -0pe "s{\\t}{$&subdir/}" >index && git ls-files -z -s | "$PERL_PATH" -0pe "s{\\t}{$&subdir/}" >index &&
git read-tree --empty && git read-tree --empty &&
git update-index -z --index-info <index && git update-index -z --index-info <index &&
git commit -m rename && git commit -m rename &&

2
t/t9810-git-p4-rcs.sh
View file

@ -246,7 +246,7 @@ test_expect_success 'cope with rcs keyword expansion damage' '
git config git-p4.attemptRCSCleanup true && git config git-p4.attemptRCSCleanup true &&
(cd ../cli && p4_append_to_file kwfile1.c) && (cd ../cli && p4_append_to_file kwfile1.c) &&
old_lines=$(wc -l <kwfile1.c) && old_lines=$(wc -l <kwfile1.c) &&
$PERL_PATH -n -i -e "print unless m/Revision:/" kwfile1.c && "$PERL_PATH" -n -i -e "print unless m/Revision:/" kwfile1.c &&
new_lines=$(wc -l <kwfile1.c) && new_lines=$(wc -l <kwfile1.c) &&
test $new_lines = $(($old_lines - 1)) && test $new_lines = $(($old_lines - 1)) &&

4
t/test-lib-functions.sh
View file

@ -76,11 +76,11 @@ test_decode_color () {
} }
nul_to_q () { nul_to_q () {
$PERL_PATH -pe 'y/\000/Q/' "$PERL_PATH" -pe 'y/\000/Q/'
} }
q_to_nul () { q_to_nul () {
$PERL_PATH -pe 'y/Q/\000/' "$PERL_PATH" -pe 'y/Q/\000/'
} }
q_to_cr () { q_to_cr () {