Merge branch 'jt/fast-export-copy-modify-fix' into maint
[git] / t / t1450-fsck.sh
1 #!/bin/sh
2
3 test_description='git fsck random collection of tests
4
5 * (HEAD) B
6 * (master) A
7 '
8
9 . ./test-lib.sh
10
11 test_expect_success setup '
12         git config gc.auto 0 &&
13         git config i18n.commitencoding ISO-8859-1 &&
14         test_commit A fileA one &&
15         git config --unset i18n.commitencoding &&
16         git checkout HEAD^0 &&
17         test_commit B fileB two &&
18         git tag -d A B &&
19         git reflog expire --expire=now --all &&
20         >empty
21 '
22
23 test_expect_success 'loose objects borrowed from alternate are not missing' '
24         mkdir another &&
25         (
26                 cd another &&
27                 git init &&
28                 echo ../../../.git/objects >.git/objects/info/alternates &&
29                 test_commit C fileC one &&
30                 git fsck --no-dangling >../actual 2>&1
31         ) &&
32         test_cmp empty actual
33 '
34
35 test_expect_success 'HEAD is part of refs, valid objects appear valid' '
36         git fsck >actual 2>&1 &&
37         test_cmp empty actual
38 '
39
40 # Corruption tests follow.  Make sure to remove all traces of the
41 # specific corruption you test afterwards, lest a later test trip over
42 # it.
43
44 test_expect_success 'setup: helpers for corruption tests' '
45         sha1_file() {
46                 remainder=${1#??} &&
47                 firsttwo=${1%$remainder} &&
48                 echo ".git/objects/$firsttwo/$remainder"
49         } &&
50
51         remove_object() {
52                 rm "$(sha1_file "$1")"
53         }
54 '
55
56 test_expect_success 'object with bad sha1' '
57         sha=$(echo blob | git hash-object -w --stdin) &&
58         old=$(echo $sha | sed "s+^..+&/+") &&
59         new=$(dirname $old)/ffffffffffffffffffffffffffffffffffffff &&
60         sha="$(dirname $new)$(basename $new)" &&
61         mv .git/objects/$old .git/objects/$new &&
62         test_when_finished "remove_object $sha" &&
63         git update-index --add --cacheinfo 100644 $sha foo &&
64         test_when_finished "git read-tree -u --reset HEAD" &&
65         tree=$(git write-tree) &&
66         test_when_finished "remove_object $tree" &&
67         cmt=$(echo bogus | git commit-tree $tree) &&
68         test_when_finished "remove_object $cmt" &&
69         git update-ref refs/heads/bogus $cmt &&
70         test_when_finished "git update-ref -d refs/heads/bogus" &&
71
72         test_must_fail git fsck 2>out &&
73         cat out &&
74         grep "$sha.*corrupt" out
75 '
76
77 test_expect_success 'branch pointing to non-commit' '
78         git rev-parse HEAD^{tree} >.git/refs/heads/invalid &&
79         test_when_finished "git update-ref -d refs/heads/invalid" &&
80         test_must_fail git fsck 2>out &&
81         cat out &&
82         grep "not a commit" out
83 '
84
85 test_expect_success 'HEAD link pointing at a funny object' '
86         test_when_finished "mv .git/SAVED_HEAD .git/HEAD" &&
87         mv .git/HEAD .git/SAVED_HEAD &&
88         echo 0000000000000000000000000000000000000000 >.git/HEAD &&
89         # avoid corrupt/broken HEAD from interfering with repo discovery
90         test_must_fail env GIT_DIR=.git git fsck 2>out &&
91         cat out &&
92         grep "detached HEAD points" out
93 '
94
95 test_expect_success 'HEAD link pointing at a funny place' '
96         test_when_finished "mv .git/SAVED_HEAD .git/HEAD" &&
97         mv .git/HEAD .git/SAVED_HEAD &&
98         echo "ref: refs/funny/place" >.git/HEAD &&
99         # avoid corrupt/broken HEAD from interfering with repo discovery
100         test_must_fail env GIT_DIR=.git git fsck 2>out &&
101         cat out &&
102         grep "HEAD points to something strange" out
103 '
104
105 test_expect_success 'email without @ is okay' '
106         git cat-file commit HEAD >basis &&
107         sed "s/@/AT/" basis >okay &&
108         new=$(git hash-object -t commit -w --stdin <okay) &&
109         test_when_finished "remove_object $new" &&
110         git update-ref refs/heads/bogus "$new" &&
111         test_when_finished "git update-ref -d refs/heads/bogus" &&
112         git fsck 2>out &&
113         cat out &&
114         ! grep "commit $new" out
115 '
116
117 test_expect_success 'email with embedded > is not okay' '
118         git cat-file commit HEAD >basis &&
119         sed "s/@[a-z]/&>/" basis >bad-email &&
120         new=$(git hash-object -t commit -w --stdin <bad-email) &&
121         test_when_finished "remove_object $new" &&
122         git update-ref refs/heads/bogus "$new" &&
123         test_when_finished "git update-ref -d refs/heads/bogus" &&
124         test_must_fail git fsck 2>out &&
125         cat out &&
126         grep "error in commit $new" out
127 '
128
129 test_expect_success 'missing < email delimiter is reported nicely' '
130         git cat-file commit HEAD >basis &&
131         sed "s/<//" basis >bad-email-2 &&
132         new=$(git hash-object -t commit -w --stdin <bad-email-2) &&
133         test_when_finished "remove_object $new" &&
134         git update-ref refs/heads/bogus "$new" &&
135         test_when_finished "git update-ref -d refs/heads/bogus" &&
136         test_must_fail git fsck 2>out &&
137         cat out &&
138         grep "error in commit $new.* - bad name" out
139 '
140
141 test_expect_success 'missing email is reported nicely' '
142         git cat-file commit HEAD >basis &&
143         sed "s/[a-z]* <[^>]*>//" basis >bad-email-3 &&
144         new=$(git hash-object -t commit -w --stdin <bad-email-3) &&
145         test_when_finished "remove_object $new" &&
146         git update-ref refs/heads/bogus "$new" &&
147         test_when_finished "git update-ref -d refs/heads/bogus" &&
148         test_must_fail git fsck 2>out &&
149         cat out &&
150         grep "error in commit $new.* - missing email" out
151 '
152
153 test_expect_success '> in name is reported' '
154         git cat-file commit HEAD >basis &&
155         sed "s/ </> </" basis >bad-email-4 &&
156         new=$(git hash-object -t commit -w --stdin <bad-email-4) &&
157         test_when_finished "remove_object $new" &&
158         git update-ref refs/heads/bogus "$new" &&
159         test_when_finished "git update-ref -d refs/heads/bogus" &&
160         test_must_fail git fsck 2>out &&
161         cat out &&
162         grep "error in commit $new" out
163 '
164
165 # date is 2^64 + 1
166 test_expect_success 'integer overflow in timestamps is reported' '
167         git cat-file commit HEAD >basis &&
168         sed "s/^\\(author .*>\\) [0-9]*/\\1 18446744073709551617/" \
169                 <basis >bad-timestamp &&
170         new=$(git hash-object -t commit -w --stdin <bad-timestamp) &&
171         test_when_finished "remove_object $new" &&
172         git update-ref refs/heads/bogus "$new" &&
173         test_when_finished "git update-ref -d refs/heads/bogus" &&
174         test_must_fail git fsck 2>out &&
175         cat out &&
176         grep "error in commit $new.*integer overflow" out
177 '
178
179 test_expect_success 'commit with NUL in header' '
180         git cat-file commit HEAD >basis &&
181         sed "s/author ./author Q/" <basis | q_to_nul >commit-NUL-header &&
182         new=$(git hash-object -t commit -w --stdin <commit-NUL-header) &&
183         test_when_finished "remove_object $new" &&
184         git update-ref refs/heads/bogus "$new" &&
185         test_when_finished "git update-ref -d refs/heads/bogus" &&
186         test_must_fail git fsck 2>out &&
187         cat out &&
188         grep "error in commit $new.*unterminated header: NUL at offset" out
189 '
190
191 test_expect_success 'tree object with duplicate entries' '
192         test_when_finished "for i in \$T; do remove_object \$i; done" &&
193         T=$(
194                 GIT_INDEX_FILE=test-index &&
195                 export GIT_INDEX_FILE &&
196                 rm -f test-index &&
197                 >x &&
198                 git add x &&
199                 git rev-parse :x &&
200                 T=$(git write-tree) &&
201                 echo $T &&
202                 (
203                         git cat-file tree $T &&
204                         git cat-file tree $T
205                 ) |
206                 git hash-object -w -t tree --stdin
207         ) &&
208         test_must_fail git fsck 2>out &&
209         grep "error in tree .*contains duplicate file entries" out
210 '
211
212 test_expect_success 'unparseable tree object' '
213         test_when_finished "git update-ref -d refs/heads/wrong" &&
214         test_when_finished "remove_object \$tree_sha1" &&
215         test_when_finished "remove_object \$commit_sha1" &&
216         tree_sha1=$(printf "100644 \0twenty-bytes-of-junk" | git hash-object -t tree --stdin -w --literally) &&
217         commit_sha1=$(git commit-tree $tree_sha1) &&
218         git update-ref refs/heads/wrong $commit_sha1 &&
219         test_must_fail git fsck 2>out &&
220         test_i18ngrep "error: empty filename in tree entry" out &&
221         test_i18ngrep "$tree_sha1" out &&
222         test_i18ngrep ! "fatal: empty filename in tree entry" out
223 '
224
225 hex2oct() {
226         perl -ne 'printf "\\%03o", hex for /../g'
227 }
228
229 test_expect_success 'tree entry with type mismatch' '
230         test_when_finished "remove_object \$blob" &&
231         test_when_finished "remove_object \$tree" &&
232         test_when_finished "remove_object \$commit" &&
233         test_when_finished "git update-ref -d refs/heads/type_mismatch" &&
234         blob=$(echo blob | git hash-object -w --stdin) &&
235         blob_bin=$(echo $blob | hex2oct) &&
236         tree=$(
237                 printf "40000 dir\0${blob_bin}100644 file\0${blob_bin}" |
238                 git hash-object -t tree --stdin -w --literally
239         ) &&
240         commit=$(git commit-tree $tree) &&
241         git update-ref refs/heads/type_mismatch $commit &&
242         test_must_fail git fsck >out 2>&1 &&
243         test_i18ngrep "is a blob, not a tree" out &&
244         test_i18ngrep ! "dangling blob" out
245 '
246
247 test_expect_success 'tag pointing to nonexistent' '
248         cat >invalid-tag <<-\EOF &&
249         object ffffffffffffffffffffffffffffffffffffffff
250         type commit
251         tag invalid
252         tagger T A Gger <tagger@example.com> 1234567890 -0000
253
254         This is an invalid tag.
255         EOF
256
257         tag=$(git hash-object -t tag -w --stdin <invalid-tag) &&
258         test_when_finished "remove_object $tag" &&
259         echo $tag >.git/refs/tags/invalid &&
260         test_when_finished "git update-ref -d refs/tags/invalid" &&
261         test_must_fail git fsck --tags >out &&
262         cat out &&
263         grep "broken link" out
264 '
265
266 test_expect_success 'tag pointing to something else than its type' '
267         sha=$(echo blob | git hash-object -w --stdin) &&
268         test_when_finished "remove_object $sha" &&
269         cat >wrong-tag <<-EOF &&
270         object $sha
271         type commit
272         tag wrong
273         tagger T A Gger <tagger@example.com> 1234567890 -0000
274
275         This is an invalid tag.
276         EOF
277
278         tag=$(git hash-object -t tag -w --stdin <wrong-tag) &&
279         test_when_finished "remove_object $tag" &&
280         echo $tag >.git/refs/tags/wrong &&
281         test_when_finished "git update-ref -d refs/tags/wrong" &&
282         test_must_fail git fsck --tags
283 '
284
285 test_expect_success 'tag with incorrect tag name & missing tagger' '
286         sha=$(git rev-parse HEAD) &&
287         cat >wrong-tag <<-EOF &&
288         object $sha
289         type commit
290         tag wrong name format
291
292         This is an invalid tag.
293         EOF
294
295         tag=$(git hash-object -t tag -w --stdin <wrong-tag) &&
296         test_when_finished "remove_object $tag" &&
297         echo $tag >.git/refs/tags/wrong &&
298         test_when_finished "git update-ref -d refs/tags/wrong" &&
299         git fsck --tags 2>out &&
300
301         cat >expect <<-EOF &&
302         warning in tag $tag: badTagName: invalid '\''tag'\'' name: wrong name format
303         warning in tag $tag: missingTaggerEntry: invalid format - expected '\''tagger'\'' line
304         EOF
305         test_cmp expect out
306 '
307
308 test_expect_success 'tag with bad tagger' '
309         sha=$(git rev-parse HEAD) &&
310         cat >wrong-tag <<-EOF &&
311         object $sha
312         type commit
313         tag not-quite-wrong
314         tagger Bad Tagger Name
315
316         This is an invalid tag.
317         EOF
318
319         tag=$(git hash-object --literally -t tag -w --stdin <wrong-tag) &&
320         test_when_finished "remove_object $tag" &&
321         echo $tag >.git/refs/tags/wrong &&
322         test_when_finished "git update-ref -d refs/tags/wrong" &&
323         test_must_fail git fsck --tags 2>out &&
324         grep "error in tag .*: invalid author/committer" out
325 '
326
327 test_expect_success 'tag with NUL in header' '
328         sha=$(git rev-parse HEAD) &&
329         q_to_nul >tag-NUL-header <<-EOF &&
330         object $sha
331         type commit
332         tag contains-Q-in-header
333         tagger T A Gger <tagger@example.com> 1234567890 -0000
334
335         This is an invalid tag.
336         EOF
337
338         tag=$(git hash-object --literally -t tag -w --stdin <tag-NUL-header) &&
339         test_when_finished "remove_object $tag" &&
340         echo $tag >.git/refs/tags/wrong &&
341         test_when_finished "git update-ref -d refs/tags/wrong" &&
342         test_must_fail git fsck --tags 2>out &&
343         cat out &&
344         grep "error in tag $tag.*unterminated header: NUL at offset" out
345 '
346
347 test_expect_success 'cleaned up' '
348         git fsck >actual 2>&1 &&
349         test_cmp empty actual
350 '
351
352 test_expect_success 'rev-list --verify-objects' '
353         git rev-list --verify-objects --all >/dev/null 2>out &&
354         test_cmp empty out
355 '
356
357 test_expect_success 'rev-list --verify-objects with bad sha1' '
358         sha=$(echo blob | git hash-object -w --stdin) &&
359         old=$(echo $sha | sed "s+^..+&/+") &&
360         new=$(dirname $old)/ffffffffffffffffffffffffffffffffffffff &&
361         sha="$(dirname $new)$(basename $new)" &&
362         mv .git/objects/$old .git/objects/$new &&
363         test_when_finished "remove_object $sha" &&
364         git update-index --add --cacheinfo 100644 $sha foo &&
365         test_when_finished "git read-tree -u --reset HEAD" &&
366         tree=$(git write-tree) &&
367         test_when_finished "remove_object $tree" &&
368         cmt=$(echo bogus | git commit-tree $tree) &&
369         test_when_finished "remove_object $cmt" &&
370         git update-ref refs/heads/bogus $cmt &&
371         test_when_finished "git update-ref -d refs/heads/bogus" &&
372
373         test_might_fail git rev-list --verify-objects refs/heads/bogus >/dev/null 2>out &&
374         cat out &&
375         grep -q "error: sha1 mismatch 63ffffffffffffffffffffffffffffffffffffff" out
376 '
377
378 test_expect_success 'force fsck to ignore double author' '
379         git cat-file commit HEAD >basis &&
380         sed "s/^author .*/&,&/" <basis | tr , \\n >multiple-authors &&
381         new=$(git hash-object -t commit -w --stdin <multiple-authors) &&
382         test_when_finished "remove_object $new" &&
383         git update-ref refs/heads/bogus "$new" &&
384         test_when_finished "git update-ref -d refs/heads/bogus" &&
385         test_must_fail git fsck &&
386         git -c fsck.multipleAuthors=ignore fsck
387 '
388
389 _bz='\0'
390 _bz5="$_bz$_bz$_bz$_bz$_bz"
391 _bz20="$_bz5$_bz5$_bz5$_bz5"
392
393 test_expect_success 'fsck notices blob entry pointing to null sha1' '
394         (git init null-blob &&
395          cd null-blob &&
396          sha=$(printf "100644 file$_bz$_bz20" |
397                git hash-object -w --stdin -t tree) &&
398           git fsck 2>out &&
399           cat out &&
400           grep "warning.*null sha1" out
401         )
402 '
403
404 test_expect_success 'fsck notices submodule entry pointing to null sha1' '
405         (git init null-commit &&
406          cd null-commit &&
407          sha=$(printf "160000 submodule$_bz$_bz20" |
408                git hash-object -w --stdin -t tree) &&
409           git fsck 2>out &&
410           cat out &&
411           grep "warning.*null sha1" out
412         )
413 '
414
415 while read name path pretty; do
416         while read mode type; do
417                 : ${pretty:=$path}
418                 test_expect_success "fsck notices $pretty as $type" '
419                 (
420                         git init $name-$type &&
421                         cd $name-$type &&
422                         echo content >file &&
423                         git add file &&
424                         git commit -m base &&
425                         blob=$(git rev-parse :file) &&
426                         tree=$(git rev-parse HEAD^{tree}) &&
427                         value=$(eval "echo \$$type") &&
428                         printf "$mode $type %s\t%s" "$value" "$path" >bad &&
429                         bad_tree=$(git mktree <bad) &&
430                         git fsck 2>out &&
431                         cat out &&
432                         grep "warning.*tree $bad_tree" out
433                 )'
434         done <<-\EOF
435         100644 blob
436         040000 tree
437         EOF
438 done <<-EOF
439 dot .
440 dotdot ..
441 dotgit .git
442 dotgit-case .GIT
443 dotgit-unicode .gI${u200c}T .gI{u200c}T
444 dotgit-case2 .Git
445 git-tilde1 git~1
446 dotgitdot .git.
447 dot-backslash-case .\\\\.GIT\\\\foobar
448 dotgit-case-backslash .git\\\\foobar
449 EOF
450
451 test_expect_success 'fsck allows .Ňit' '
452         (
453                 git init not-dotgit &&
454                 cd not-dotgit &&
455                 echo content >file &&
456                 git add file &&
457                 git commit -m base &&
458                 blob=$(git rev-parse :file) &&
459                 printf "100644 blob $blob\t.\\305\\207it" >tree &&
460                 tree=$(git mktree <tree) &&
461                 git fsck 2>err &&
462                 test_line_count = 0 err
463         )
464 '
465
466 test_expect_success 'NUL in commit' '
467         rm -fr nul-in-commit &&
468         git init nul-in-commit &&
469         (
470                 cd nul-in-commit &&
471                 git commit --allow-empty -m "initial commitQNUL after message" &&
472                 git cat-file commit HEAD >original &&
473                 q_to_nul <original >munged &&
474                 git hash-object -w -t commit --stdin <munged >name &&
475                 git branch bad $(cat name) &&
476
477                 test_must_fail git -c fsck.nulInCommit=error fsck 2>warn.1 &&
478                 grep nulInCommit warn.1 &&
479                 git fsck 2>warn.2 &&
480                 grep nulInCommit warn.2
481         )
482 '
483
484 # create a static test repo which is broken by omitting
485 # one particular object ($1, which is looked up via rev-parse
486 # in the new repository).
487 create_repo_missing () {
488         rm -rf missing &&
489         git init missing &&
490         (
491                 cd missing &&
492                 git commit -m one --allow-empty &&
493                 mkdir subdir &&
494                 echo content >subdir/file &&
495                 git add subdir/file &&
496                 git commit -m two &&
497                 unrelated=$(echo unrelated | git hash-object --stdin -w) &&
498                 git tag -m foo tag $unrelated &&
499                 sha1=$(git rev-parse --verify "$1") &&
500                 path=$(echo $sha1 | sed 's|..|&/|') &&
501                 rm .git/objects/$path
502         )
503 }
504
505 test_expect_success 'fsck notices missing blob' '
506         create_repo_missing HEAD:subdir/file &&
507         test_must_fail git -C missing fsck
508 '
509
510 test_expect_success 'fsck notices missing subtree' '
511         create_repo_missing HEAD:subdir &&
512         test_must_fail git -C missing fsck
513 '
514
515 test_expect_success 'fsck notices missing root tree' '
516         create_repo_missing HEAD^{tree} &&
517         test_must_fail git -C missing fsck
518 '
519
520 test_expect_success 'fsck notices missing parent' '
521         create_repo_missing HEAD^ &&
522         test_must_fail git -C missing fsck
523 '
524
525 test_expect_success 'fsck notices missing tagged object' '
526         create_repo_missing tag^{blob} &&
527         test_must_fail git -C missing fsck
528 '
529
530 test_expect_success 'fsck notices ref pointing to missing commit' '
531         create_repo_missing HEAD &&
532         test_must_fail git -C missing fsck
533 '
534
535 test_expect_success 'fsck notices ref pointing to missing tag' '
536         create_repo_missing tag &&
537         test_must_fail git -C missing fsck
538 '
539
540 test_expect_success 'fsck --connectivity-only' '
541         rm -rf connectivity-only &&
542         git init connectivity-only &&
543         (
544                 cd connectivity-only &&
545                 touch empty &&
546                 git add empty &&
547                 test_commit empty &&
548
549                 # Drop the index now; we want to be sure that we
550                 # recursively notice the broken objects
551                 # because they are reachable from refs, not because
552                 # they are in the index.
553                 rm -f .git/index &&
554
555                 # corrupt the blob, but in a way that we can still identify
556                 # its type. That lets us see that --connectivity-only is
557                 # not actually looking at the contents, but leaves it
558                 # free to examine the type if it chooses.
559                 empty=.git/objects/e6/9de29bb2d1d6434b8b29ae775ad8c2e48c5391 &&
560                 blob=$(echo unrelated | git hash-object -w --stdin) &&
561                 mv -f $(sha1_file $blob) $empty &&
562
563                 test_must_fail git fsck --strict &&
564                 git fsck --strict --connectivity-only &&
565                 tree=$(git rev-parse HEAD:) &&
566                 suffix=${tree#??} &&
567                 tree=.git/objects/${tree%$suffix}/$suffix &&
568                 rm -f $tree &&
569                 echo invalid >$tree &&
570                 test_must_fail git fsck --strict --connectivity-only
571         )
572 '
573
574 test_expect_success 'fsck --connectivity-only with explicit head' '
575         rm -rf connectivity-only &&
576         git init connectivity-only &&
577         (
578                 cd connectivity-only &&
579                 test_commit foo &&
580                 rm -f .git/index &&
581                 tree=$(git rev-parse HEAD^{tree}) &&
582                 remove_object $(git rev-parse HEAD:foo.t) &&
583                 test_must_fail git fsck --connectivity-only $tree
584         )
585 '
586
587 test_expect_success 'fsck --name-objects' '
588         rm -rf name-objects &&
589         git init name-objects &&
590         (
591                 cd name-objects &&
592                 test_commit julius caesar.t &&
593                 test_commit augustus &&
594                 test_commit caesar &&
595                 remove_object $(git rev-parse julius:caesar.t) &&
596                 test_must_fail git fsck --name-objects >out &&
597                 tree=$(git rev-parse --verify julius:) &&
598                 egrep "$tree \((refs/heads/master|HEAD)@\{[0-9]*\}:" out
599         )
600 '
601
602 test_expect_success 'alternate objects are correctly blamed' '
603         test_when_finished "rm -rf alt.git .git/objects/info/alternates" &&
604         git init --bare alt.git &&
605         echo "../../alt.git/objects" >.git/objects/info/alternates &&
606         mkdir alt.git/objects/12 &&
607         >alt.git/objects/12/34567890123456789012345678901234567890 &&
608         test_must_fail git fsck >out 2>&1 &&
609         grep alt.git out
610 '
611
612 test_expect_success 'fsck errors in packed objects' '
613         git cat-file commit HEAD >basis &&
614         sed "s/</one/" basis >one &&
615         sed "s/</foo/" basis >two &&
616         one=$(git hash-object -t commit -w one) &&
617         two=$(git hash-object -t commit -w two) &&
618         pack=$(
619                 {
620                         echo $one &&
621                         echo $two
622                 } | git pack-objects .git/objects/pack/pack
623         ) &&
624         test_when_finished "rm -f .git/objects/pack/pack-$pack.*" &&
625         remove_object $one &&
626         remove_object $two &&
627         test_must_fail git fsck 2>out &&
628         grep "error in commit $one.* - bad name" out &&
629         grep "error in commit $two.* - bad name" out &&
630         ! grep corrupt out
631 '
632
633 test_expect_success 'fsck fails on corrupt packfile' '
634         hsh=$(git commit-tree -m mycommit HEAD^{tree}) &&
635         pack=$(echo $hsh | git pack-objects .git/objects/pack/pack) &&
636
637         # Corrupt the first byte of the first object. (It contains 3 type bits,
638         # at least one of which is not zero, so setting the first byte to 0 is
639         # sufficient.)
640         chmod a+w .git/objects/pack/pack-$pack.pack &&
641         printf '\0' | dd of=.git/objects/pack/pack-$pack.pack bs=1 conv=notrunc seek=12 &&
642
643         test_when_finished "rm -f .git/objects/pack/pack-$pack.*" &&
644         remove_object $hsh &&
645         test_must_fail git fsck 2>out &&
646         test_i18ngrep "checksum mismatch" out
647 '
648
649 test_expect_success 'fsck finds problems in duplicate loose objects' '
650         rm -rf broken-duplicate &&
651         git init broken-duplicate &&
652         (
653                 cd broken-duplicate &&
654                 test_commit duplicate &&
655                 # no "-d" here, so we end up with duplicates
656                 git repack &&
657                 # now corrupt the loose copy
658                 file=$(sha1_file "$(git rev-parse HEAD)") &&
659                 rm "$file" &&
660                 echo broken >"$file" &&
661                 test_must_fail git fsck
662         )
663 '
664
665 test_expect_success 'fsck detects trailing loose garbage (commit)' '
666         git cat-file commit HEAD >basis &&
667         echo bump-commit-sha1 >>basis &&
668         commit=$(git hash-object -w -t commit basis) &&
669         file=$(sha1_file $commit) &&
670         test_when_finished "remove_object $commit" &&
671         chmod +w "$file" &&
672         echo garbage >>"$file" &&
673         test_must_fail git fsck 2>out &&
674         test_i18ngrep "garbage.*$commit" out
675 '
676
677 test_expect_success 'fsck detects trailing loose garbage (blob)' '
678         blob=$(echo trailing | git hash-object -w --stdin) &&
679         file=$(sha1_file $blob) &&
680         test_when_finished "remove_object $blob" &&
681         chmod +w "$file" &&
682         echo garbage >>"$file" &&
683         test_must_fail git fsck 2>out &&
684         test_i18ngrep "garbage.*$blob" out
685 '
686
687 # for each of type, we have one version which is referenced by another object
688 # (and so while unreachable, not dangling), and another variant which really is
689 # dangling.
690 test_expect_success 'fsck notices dangling objects' '
691         git init dangling &&
692         (
693                 cd dangling &&
694                 blob=$(echo not-dangling | git hash-object -w --stdin) &&
695                 dblob=$(echo dangling | git hash-object -w --stdin) &&
696                 tree=$(printf "100644 blob %s\t%s\n" $blob one | git mktree) &&
697                 dtree=$(printf "100644 blob %s\t%s\n" $blob two | git mktree) &&
698                 commit=$(git commit-tree $tree) &&
699                 dcommit=$(git commit-tree -p $commit $tree) &&
700
701                 cat >expect <<-EOF &&
702                 dangling blob $dblob
703                 dangling commit $dcommit
704                 dangling tree $dtree
705                 EOF
706
707                 git fsck >actual &&
708                 # the output order is non-deterministic, as it comes from a hash
709                 sort <actual >actual.sorted &&
710                 test_cmp expect actual.sorted
711         )
712 '
713
714 test_expect_success 'fsck $name notices bogus $name' '
715         test_must_fail git fsck bogus &&
716         test_must_fail git fsck $_z40
717 '
718
719 test_expect_success 'bogus head does not fallback to all heads' '
720         # set up a case that will cause a reachability complaint
721         echo to-be-deleted >foo &&
722         git add foo &&
723         blob=$(git rev-parse :foo) &&
724         test_when_finished "git rm --cached foo" &&
725         remove_object $blob &&
726         test_must_fail git fsck $_z40 >out 2>&1 &&
727         ! grep $blob out
728 '
729
730 # Corrupt the checksum on the index.
731 # Add 1 to the last byte in the SHA.
732 corrupt_index_checksum () {
733     perl -w -e '
734         use Fcntl ":seek";
735         open my $fh, "+<", ".git/index" or die "open: $!";
736         binmode $fh;
737         seek $fh, -1, SEEK_END or die "seek: $!";
738         read $fh, my $in_byte, 1 or die "read: $!";
739
740         $in_value = unpack("C", $in_byte);
741         $out_value = ($in_value + 1) & 255;
742
743         $out_byte = pack("C", $out_value);
744
745         seek $fh, -1, SEEK_END or die "seek: $!";
746         print $fh $out_byte;
747         close $fh or die "close: $!";
748     '
749 }
750
751 # Corrupt the checksum on the index and then
752 # verify that only fsck notices.
753 test_expect_success 'detect corrupt index file in fsck' '
754         cp .git/index .git/index.backup &&
755         test_when_finished "mv .git/index.backup .git/index" &&
756         corrupt_index_checksum &&
757         test_must_fail git fsck --cache 2>errors &&
758         grep "bad index file" errors
759 '
760
761 test_done