| #!/bin/sh |
| |
| test_description='git mktree' |
| |
| . ./test-lib.sh |
| |
| test_expect_success setup ' |
| for d in a a. a0 |
| do |
| mkdir "$d" && echo "$d/one" >"$d/one" && |
| git add "$d" |
| done && |
| echo zero >one && |
| git update-index --add --info-only one && |
| git write-tree --missing-ok >tree.missing && |
| git ls-tree $(cat tree.missing) >top.missing && |
| git ls-tree -r $(cat tree.missing) >all.missing && |
| echo one >one && |
| git add one && |
| git write-tree >tree && |
| git ls-tree $(cat tree) >top && |
| git ls-tree -r $(cat tree) >all && |
| test_tick && |
| git commit -q -m one && |
| H=$(git rev-parse HEAD) && |
| git update-index --add --cacheinfo 160000 $H sub && |
| test_tick && |
| git commit -q -m two && |
| git rev-parse HEAD^{tree} >tree.withsub && |
| git ls-tree HEAD >top.withsub && |
| git ls-tree -r HEAD >all.withsub |
| ' |
| |
| test_expect_success 'ls-tree piped to mktree (1)' ' |
| git mktree <top >actual && |
| test_cmp tree actual |
| ' |
| |
| test_expect_success 'ls-tree piped to mktree (2)' ' |
| git mktree <top.withsub >actual && |
| test_cmp tree.withsub actual |
| ' |
| |
| test_expect_success 'ls-tree output in wrong order given to mktree (1)' ' |
| perl -e "print reverse <>" <top | |
| git mktree >actual && |
| test_cmp tree actual |
| ' |
| |
| test_expect_success 'ls-tree output in wrong order given to mktree (2)' ' |
| perl -e "print reverse <>" <top.withsub | |
| git mktree >actual && |
| test_cmp tree.withsub actual |
| ' |
| |
| test_expect_success 'allow missing object with --missing' ' |
| git mktree --missing <top.missing >actual && |
| test_cmp tree.missing actual |
| ' |
| |
| test_expect_success 'mktree refuses to read ls-tree -r output (1)' ' |
| test_must_fail git mktree <all >actual |
| ' |
| |
| test_expect_success 'mktree refuses to read ls-tree -r output (2)' ' |
| test_must_fail git mktree <all.withsub >actual |
| ' |
| |
| test_done |