23e21a58d5
In the early days of Git, Perl was used quite prominently throughout the
project. This has changed significantly as almost all of the executables
we ship nowadays have eventually been rewritten in C. Only a handful of
subsystems remain that require Perl:
- gitweb, a read-only web interface.
- A couple of scripts that allow importing repositories from GNU Arch,
CVS and Subversion.
- git-send-email(1), which can be used to send mails.
- git-request-pull(1), which is used to request somebody to pull from
a URL by sending an email.
- git-filter-branch(1), which uses Perl with the `--state-branch`
option. This command is typically recommended against nowadays in
favor of git-filter-repo(1).
- Our Perl bindings for Git.
- The netrc Git credential helper.
None of these subsystems can really be considered to be part of the
"core" of Git, and an installation without them is fully functional.
It is more likely than not that an end user wouldn't even notice that
any features are missing if those tools weren't installed. But while
Perl nowadays very much is an optional dependency of Git, there is a
significant limitation when Perl isn't available: developers cannot run
our test suite.
Preceding commits have started to lift this restriction by removing the
strict dependency on Perl in many central parts of the test library. But
there are still many tests that rely on small Perl helpers to do various
different things.
Introduce a new PERL_TEST_HELPERS prerequisite that guards all tests
that require Perl. This prerequisite is explicitly different than the
preexisting PERL prerequisite:
- PERL records whether or not features depending on the Perl
interpreter are built.
- PERL_TEST_HELPERS records whether or not a Perl interpreter is
available for our tests.
By having these two separate prerequisites we can thus distinguish
between tests that inherently depend on Perl because the underlying
feature does, and those tests that depend on Perl because the test
itself is using Perl.
Adapt all tests to set the PERL_TEST_HELPERS prerequisite as needed.
Signed-off-by: Patrick Steinhardt <ps@pks.im>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
269 lines
7.3 KiB
Bash
Executable File
269 lines
7.3 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
test_description="git hash-object"
|
|
|
|
. ./test-lib.sh
|
|
|
|
echo_without_newline() {
|
|
printf '%s' "$*"
|
|
}
|
|
|
|
test_blob_does_not_exist() {
|
|
test_expect_success 'blob does not exist in database' "
|
|
test_must_fail git cat-file blob $1
|
|
"
|
|
}
|
|
|
|
test_blob_exists() {
|
|
test_expect_success 'blob exists in database' "
|
|
git cat-file blob $1
|
|
"
|
|
}
|
|
|
|
hello_content="Hello World"
|
|
example_content="This is an example"
|
|
|
|
setup_repo() {
|
|
echo_without_newline "$hello_content" > hello
|
|
echo_without_newline "$example_content" > example
|
|
}
|
|
|
|
test_repo=test
|
|
push_repo() {
|
|
test_create_repo $test_repo
|
|
cd $test_repo
|
|
|
|
setup_repo
|
|
}
|
|
|
|
pop_repo() {
|
|
cd ..
|
|
rm -rf $test_repo
|
|
}
|
|
|
|
test_expect_success 'setup' '
|
|
setup_repo &&
|
|
test_oid_cache <<-EOF
|
|
hello sha1:5e1c309dae7f45e0f39b1bf3ac3cd9db12e7d689
|
|
hello sha256:1e3b6c04d2eeb2b3e45c8a330445404c0b7cc7b257e2b097167d26f5230090c4
|
|
|
|
example sha1:ddd3f836d3e3fbb7ae289aa9ae83536f76956399
|
|
example sha256:b44fe1fe65589848253737db859bd490453510719d7424daab03daf0767b85ae
|
|
EOF
|
|
'
|
|
|
|
# Argument checking
|
|
|
|
test_expect_success "multiple '--stdin's are rejected" '
|
|
echo example | test_must_fail git hash-object --stdin --stdin
|
|
'
|
|
|
|
test_expect_success "Can't use --stdin and --stdin-paths together" '
|
|
echo example | test_must_fail git hash-object --stdin --stdin-paths &&
|
|
echo example | test_must_fail git hash-object --stdin-paths --stdin
|
|
'
|
|
|
|
test_expect_success "Can't pass filenames as arguments with --stdin-paths" '
|
|
echo example | test_must_fail git hash-object --stdin-paths hello
|
|
'
|
|
|
|
test_expect_success "Can't use --path with --stdin-paths" '
|
|
echo example | test_must_fail git hash-object --stdin-paths --path=foo
|
|
'
|
|
|
|
test_expect_success "Can't use --path with --no-filters" '
|
|
test_must_fail git hash-object --no-filters --path=foo
|
|
'
|
|
|
|
# Behavior
|
|
|
|
push_repo
|
|
|
|
test_expect_success 'hash a file' '
|
|
test "$(test_oid hello)" = $(git hash-object hello)
|
|
'
|
|
|
|
test_blob_does_not_exist "$(test_oid hello)"
|
|
|
|
test_expect_success 'hash from stdin' '
|
|
test "$(test_oid example)" = $(git hash-object --stdin < example)
|
|
'
|
|
|
|
test_blob_does_not_exist "$(test_oid example)"
|
|
|
|
test_expect_success 'hash a file and write to database' '
|
|
test "$(test_oid hello)" = $(git hash-object -w hello)
|
|
'
|
|
|
|
test_blob_exists "$(test_oid hello)"
|
|
|
|
test_expect_success 'git hash-object --stdin file1 <file0 first operates on file0, then file1' '
|
|
echo foo > file1 &&
|
|
obname0=$(echo bar | git hash-object --stdin) &&
|
|
obname1=$(git hash-object file1) &&
|
|
obname0new=$(echo bar | git hash-object --stdin file1 | sed -n -e 1p) &&
|
|
obname1new=$(echo bar | git hash-object --stdin file1 | sed -n -e 2p) &&
|
|
test "$obname0" = "$obname0new" &&
|
|
test "$obname1" = "$obname1new"
|
|
'
|
|
|
|
test_expect_success 'set up crlf tests' '
|
|
echo fooQ | tr Q "\\015" >file0 &&
|
|
cp file0 file1 &&
|
|
echo "file0 -crlf" >.gitattributes &&
|
|
echo "file1 crlf" >>.gitattributes &&
|
|
git config core.autocrlf true &&
|
|
file0_sha=$(git hash-object file0) &&
|
|
file1_sha=$(git hash-object file1) &&
|
|
test "$file0_sha" != "$file1_sha"
|
|
'
|
|
|
|
test_expect_success 'check that appropriate filter is invoke when --path is used' '
|
|
path1_sha=$(git hash-object --path=file1 file0) &&
|
|
path0_sha=$(git hash-object --path=file0 file1) &&
|
|
test "$file0_sha" = "$path0_sha" &&
|
|
test "$file1_sha" = "$path1_sha" &&
|
|
path1_sha=$(git hash-object --path=file1 --stdin <file0) &&
|
|
path0_sha=$(git hash-object --path=file0 --stdin <file1) &&
|
|
test "$file0_sha" = "$path0_sha" &&
|
|
test "$file1_sha" = "$path1_sha"
|
|
'
|
|
|
|
test_expect_success 'gitattributes also work in a subdirectory' '
|
|
mkdir subdir &&
|
|
(
|
|
cd subdir &&
|
|
subdir_sha0=$(git hash-object ../file0) &&
|
|
subdir_sha1=$(git hash-object ../file1) &&
|
|
test "$file0_sha" = "$subdir_sha0" &&
|
|
test "$file1_sha" = "$subdir_sha1"
|
|
)
|
|
'
|
|
|
|
test_expect_success '--path works in a subdirectory' '
|
|
(
|
|
cd subdir &&
|
|
path1_sha=$(git hash-object --path=../file1 ../file0) &&
|
|
path0_sha=$(git hash-object --path=../file0 ../file1) &&
|
|
test "$file0_sha" = "$path0_sha" &&
|
|
test "$file1_sha" = "$path1_sha"
|
|
)
|
|
'
|
|
|
|
test_expect_success 'check that --no-filters option works' '
|
|
nofilters_file1=$(git hash-object --no-filters file1) &&
|
|
test "$file0_sha" = "$nofilters_file1" &&
|
|
nofilters_file1=$(git hash-object --stdin <file1) &&
|
|
test "$file0_sha" = "$nofilters_file1"
|
|
'
|
|
|
|
test_expect_success 'check that --no-filters option works with --stdin-paths' '
|
|
nofilters_file1=$(echo "file1" | git hash-object --stdin-paths --no-filters) &&
|
|
test "$file0_sha" = "$nofilters_file1"
|
|
'
|
|
|
|
pop_repo
|
|
|
|
for args in "-w --stdin" "--stdin -w"; do
|
|
push_repo
|
|
|
|
test_expect_success "hash from stdin and write to database ($args)" '
|
|
test "$(test_oid example)" = $(git hash-object $args < example)
|
|
'
|
|
|
|
test_blob_exists "$(test_oid example)"
|
|
|
|
pop_repo
|
|
done
|
|
|
|
filenames="hello
|
|
example"
|
|
|
|
oids="$(test_oid hello)
|
|
$(test_oid example)"
|
|
|
|
test_expect_success "hash two files with names on stdin" '
|
|
test "$oids" = "$(echo_without_newline "$filenames" | git hash-object --stdin-paths)"
|
|
'
|
|
|
|
for args in "-w --stdin-paths" "--stdin-paths -w"; do
|
|
push_repo
|
|
|
|
test_expect_success "hash two files with names on stdin and write to database ($args)" '
|
|
test "$oids" = "$(echo_without_newline "$filenames" | git hash-object $args)"
|
|
'
|
|
|
|
test_blob_exists "$(test_oid hello)"
|
|
test_blob_exists "$(test_oid example)"
|
|
|
|
pop_repo
|
|
done
|
|
|
|
test_expect_success 'too-short tree' '
|
|
echo abc >malformed-tree &&
|
|
test_must_fail git hash-object -t tree malformed-tree 2>err &&
|
|
grep "too-short tree object" err
|
|
'
|
|
|
|
test_expect_success PERL_TEST_HELPERS 'malformed mode in tree' '
|
|
hex_oid=$(echo foo | git hash-object --stdin -w) &&
|
|
bin_oid=$(echo $hex_oid | hex2oct) &&
|
|
printf "9100644 \0$bin_oid" >tree-with-malformed-mode &&
|
|
test_must_fail git hash-object -t tree tree-with-malformed-mode 2>err &&
|
|
grep "malformed mode in tree entry" err
|
|
'
|
|
|
|
test_expect_success PERL_TEST_HELPERS 'empty filename in tree' '
|
|
hex_oid=$(echo foo | git hash-object --stdin -w) &&
|
|
bin_oid=$(echo $hex_oid | hex2oct) &&
|
|
printf "100644 \0$bin_oid" >tree-with-empty-filename &&
|
|
test_must_fail git hash-object -t tree tree-with-empty-filename 2>err &&
|
|
grep "empty filename in tree entry" err
|
|
'
|
|
|
|
test_expect_success PERL_TEST_HELPERS 'duplicate filename in tree' '
|
|
hex_oid=$(echo foo | git hash-object --stdin -w) &&
|
|
bin_oid=$(echo $hex_oid | hex2oct) &&
|
|
{
|
|
printf "100644 file\0$bin_oid" &&
|
|
printf "100644 file\0$bin_oid"
|
|
} >tree-with-duplicate-filename &&
|
|
test_must_fail git hash-object -t tree tree-with-duplicate-filename 2>err &&
|
|
grep "duplicateEntries" err
|
|
'
|
|
|
|
test_expect_success 'corrupt commit' '
|
|
test_must_fail git hash-object -t commit --stdin </dev/null
|
|
'
|
|
|
|
test_expect_success 'corrupt tag' '
|
|
test_must_fail git hash-object -t tag --stdin </dev/null
|
|
'
|
|
|
|
test_expect_success 'hash-object complains about bogus type name' '
|
|
test_must_fail git hash-object -t bogus --stdin </dev/null
|
|
'
|
|
|
|
test_expect_success 'hash-object complains about truncated type name' '
|
|
test_must_fail git hash-object -t bl --stdin </dev/null
|
|
'
|
|
|
|
test_expect_success '--literally' '
|
|
t=1234567890 &&
|
|
echo example | git hash-object -t $t --literally --stdin
|
|
'
|
|
|
|
test_expect_success '--literally with extra-long type' '
|
|
t=12345678901234567890123456789012345678901234567890 &&
|
|
t="$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t$t" &&
|
|
echo example | git hash-object -t $t --literally --stdin
|
|
'
|
|
|
|
test_expect_success '--stdin outside of repository (uses SHA-1)' '
|
|
nongit git hash-object --stdin <hello >actual &&
|
|
echo "$(test_oid --hash=sha1 hello)" >expect &&
|
|
test_cmp expect actual
|
|
'
|
|
|
|
test_done
|