Merge branch 'jk/rev-input-given-fix'
[git] / t / t5616-partial-clone.sh
1 #!/bin/sh
2
3 test_description='git partial clone'
4
5 . ./test-lib.sh
6
7 # create a normal "src" repo where we can later create new commits.
8 # expect_1.oids will contain a list of the OIDs of all blobs.
9 test_expect_success 'setup normal src repo' '
10         echo "{print \$1}" >print_1.awk &&
11         echo "{print \$2}" >print_2.awk &&
12
13         git init src &&
14         for n in 1 2 3 4
15         do
16                 echo "This is file: $n" > src/file.$n.txt
17                 git -C src add file.$n.txt
18                 git -C src commit -m "file $n"
19                 git -C src ls-files -s file.$n.txt >>temp
20         done &&
21         awk -f print_2.awk <temp | sort >expect_1.oids &&
22         test_line_count = 4 expect_1.oids
23 '
24
25 # bare clone "src" giving "srv.bare" for use as our server.
26 test_expect_success 'setup bare clone for server' '
27         git clone --bare "file://$(pwd)/src" srv.bare &&
28         git -C srv.bare config --local uploadpack.allowfilter 1 &&
29         git -C srv.bare config --local uploadpack.allowanysha1inwant 1
30 '
31
32 # do basic partial clone from "srv.bare"
33 # confirm we are missing all of the known blobs.
34 # confirm partial clone was registered in the local config.
35 test_expect_success 'do partial clone 1' '
36         git clone --no-checkout --filter=blob:none "file://$(pwd)/srv.bare" pc1 &&
37
38         git -C pc1 rev-list --quiet --objects --missing=print HEAD >revs &&
39         awk -f print_1.awk revs |
40         sed "s/?//" |
41         sort >observed.oids &&
42
43         test_cmp expect_1.oids observed.oids &&
44         test "$(git -C pc1 config --local core.repositoryformatversion)" = "1" &&
45         test "$(git -C pc1 config --local remote.origin.promisor)" = "true" &&
46         test "$(git -C pc1 config --local remote.origin.partialclonefilter)" = "blob:none"
47 '
48
49 test_expect_success 'verify that .promisor file contains refs fetched' '
50         ls pc1/.git/objects/pack/pack-*.promisor >promisorlist &&
51         test_line_count = 1 promisorlist &&
52         git -C srv.bare rev-parse --verify HEAD >headhash &&
53         grep "$(cat headhash) HEAD" $(cat promisorlist) &&
54         grep "$(cat headhash) refs/heads/master" $(cat promisorlist)
55 '
56
57 # checkout master to force dynamic object fetch of blobs at HEAD.
58 test_expect_success 'verify checkout with dynamic object fetch' '
59         git -C pc1 rev-list --quiet --objects --missing=print HEAD >observed &&
60         test_line_count = 4 observed &&
61         git -C pc1 checkout master &&
62         git -C pc1 rev-list --quiet --objects --missing=print HEAD >observed &&
63         test_line_count = 0 observed
64 '
65
66 # create new commits in "src" repo to establish a blame history on file.1.txt
67 # and push to "srv.bare".
68 test_expect_success 'push new commits to server' '
69         git -C src remote add srv "file://$(pwd)/srv.bare" &&
70         for x in a b c d e
71         do
72                 echo "Mod file.1.txt $x" >>src/file.1.txt
73                 git -C src add file.1.txt
74                 git -C src commit -m "mod $x"
75         done &&
76         git -C src blame master -- file.1.txt >expect.blame &&
77         git -C src push -u srv master
78 '
79
80 # (partial) fetch in the partial clone repo from the promisor remote.
81 # verify that fetch inherited the filter-spec from the config and DOES NOT
82 # have the new blobs.
83 test_expect_success 'partial fetch inherits filter settings' '
84         git -C pc1 fetch origin &&
85         git -C pc1 rev-list --quiet --objects --missing=print \
86                 master..origin/master >observed &&
87         test_line_count = 5 observed
88 '
89
90 # force dynamic object fetch using diff.
91 # we should only get 1 new blob (for the file in origin/master).
92 test_expect_success 'verify diff causes dynamic object fetch' '
93         git -C pc1 diff master..origin/master -- file.1.txt &&
94         git -C pc1 rev-list --quiet --objects --missing=print \
95                  master..origin/master >observed &&
96         test_line_count = 4 observed
97 '
98
99 # force full dynamic object fetch of the file's history using blame.
100 # we should get the intermediate blobs for the file.
101 test_expect_success 'verify blame causes dynamic object fetch' '
102         git -C pc1 blame origin/master -- file.1.txt >observed.blame &&
103         test_cmp expect.blame observed.blame &&
104         git -C pc1 rev-list --quiet --objects --missing=print \
105                 master..origin/master >observed &&
106         test_line_count = 0 observed
107 '
108
109 # create new commits in "src" repo to establish a history on file.2.txt
110 # and push to "srv.bare".
111 test_expect_success 'push new commits to server for file.2.txt' '
112         for x in a b c d e f
113         do
114                 echo "Mod file.2.txt $x" >>src/file.2.txt
115                 git -C src add file.2.txt
116                 git -C src commit -m "mod $x"
117         done &&
118         git -C src push -u srv master
119 '
120
121 # Do FULL fetch by disabling inherited filter-spec using --no-filter.
122 # Verify we have all the new blobs.
123 test_expect_success 'override inherited filter-spec using --no-filter' '
124         git -C pc1 fetch --no-filter origin &&
125         git -C pc1 rev-list --quiet --objects --missing=print \
126                 master..origin/master >observed &&
127         test_line_count = 0 observed
128 '
129
130 # create new commits in "src" repo to establish a history on file.3.txt
131 # and push to "srv.bare".
132 test_expect_success 'push new commits to server for file.3.txt' '
133         for x in a b c d e f
134         do
135                 echo "Mod file.3.txt $x" >>src/file.3.txt
136                 git -C src add file.3.txt
137                 git -C src commit -m "mod $x"
138         done &&
139         git -C src push -u srv master
140 '
141
142 # Do a partial fetch and then try to manually fetch the missing objects.
143 # This can be used as the basis of a pre-command hook to bulk fetch objects
144 # perhaps combined with a command in dry-run mode.
145 test_expect_success 'manual prefetch of missing objects' '
146         git -C pc1 fetch --filter=blob:none origin &&
147
148         git -C pc1 rev-list --quiet --objects --missing=print \
149                  master..origin/master >revs &&
150         awk -f print_1.awk revs |
151         sed "s/?//" |
152         sort >observed.oids &&
153
154         test_line_count = 6 observed.oids &&
155         git -C pc1 fetch-pack --stdin "file://$(pwd)/srv.bare" <observed.oids &&
156
157         git -C pc1 rev-list --quiet --objects --missing=print \
158                 master..origin/master >revs &&
159         awk -f print_1.awk revs |
160         sed "s/?//" |
161         sort >observed.oids &&
162
163         test_line_count = 0 observed.oids
164 '
165
166 test_expect_success 'partial clone with transfer.fsckobjects=1 works with submodules' '
167         test_create_repo submodule &&
168         test_commit -C submodule mycommit &&
169
170         test_create_repo src_with_sub &&
171         test_config -C src_with_sub uploadpack.allowfilter 1 &&
172         test_config -C src_with_sub uploadpack.allowanysha1inwant 1 &&
173
174         git -C src_with_sub submodule add "file://$(pwd)/submodule" mysub &&
175         git -C src_with_sub commit -m "commit with submodule" &&
176
177         git -c transfer.fsckobjects=1 \
178                 clone --filter="blob:none" "file://$(pwd)/src_with_sub" dst &&
179         test_when_finished rm -rf dst
180 '
181
182 test_expect_success 'partial clone with transfer.fsckobjects=1 uses index-pack --fsck-objects' '
183         git init src &&
184         test_commit -C src x &&
185         test_config -C src uploadpack.allowfilter 1 &&
186         test_config -C src uploadpack.allowanysha1inwant 1 &&
187
188         GIT_TRACE="$(pwd)/trace" git -c transfer.fsckobjects=1 \
189                 clone --filter="blob:none" "file://$(pwd)/src" dst &&
190         grep "git index-pack.*--fsck-objects" trace
191 '
192
193 test_expect_success 'use fsck before and after manually fetching a missing subtree' '
194         # push new commit so server has a subtree
195         mkdir src/dir &&
196         echo "in dir" >src/dir/file.txt &&
197         git -C src add dir/file.txt &&
198         git -C src commit -m "file in dir" &&
199         git -C src push -u srv master &&
200         SUBTREE=$(git -C src rev-parse HEAD:dir) &&
201
202         rm -rf dst &&
203         git clone --no-checkout --filter=tree:0 "file://$(pwd)/srv.bare" dst &&
204         git -C dst fsck &&
205
206         # Make sure we only have commits, and all trees and blobs are missing.
207         git -C dst rev-list --missing=allow-any --objects master \
208                 >fetched_objects &&
209         awk -f print_1.awk fetched_objects |
210         xargs -n1 git -C dst cat-file -t >fetched_types &&
211
212         sort -u fetched_types >unique_types.observed &&
213         echo commit >unique_types.expected &&
214         test_cmp unique_types.expected unique_types.observed &&
215
216         # Auto-fetch a tree with cat-file.
217         git -C dst cat-file -p $SUBTREE >tree_contents &&
218         grep file.txt tree_contents &&
219
220         # fsck still works after an auto-fetch of a tree.
221         git -C dst fsck &&
222
223         # Auto-fetch all remaining trees and blobs with --missing=error
224         git -C dst rev-list --missing=error --objects master >fetched_objects &&
225         test_line_count = 70 fetched_objects &&
226
227         awk -f print_1.awk fetched_objects |
228         xargs -n1 git -C dst cat-file -t >fetched_types &&
229
230         sort -u fetched_types >unique_types.observed &&
231         test_write_lines blob commit tree >unique_types.expected &&
232         test_cmp unique_types.expected unique_types.observed
233 '
234
235 test_expect_success 'implicitly construct combine: filter with repeated flags' '
236         GIT_TRACE=$(pwd)/trace git clone --bare \
237                 --filter=blob:none --filter=tree:1 \
238                 "file://$(pwd)/srv.bare" pc2 &&
239         grep "trace:.* git pack-objects .*--filter=combine:blob:none+tree:1" \
240                 trace &&
241         git -C pc2 rev-list --objects --missing=allow-any HEAD >objects &&
242
243         # We should have gotten some root trees.
244         grep " $" objects &&
245         # Should not have gotten any non-root trees or blobs.
246         ! grep " ." objects &&
247
248         xargs -n 1 git -C pc2 cat-file -t <objects >types &&
249         sort -u types >unique_types.actual &&
250         test_write_lines commit tree >unique_types.expected &&
251         test_cmp unique_types.expected unique_types.actual
252 '
253
254 test_expect_success 'upload-pack fails banned object filters' '
255         test_config -C srv.bare uploadpackfilter.blob:none.allow false &&
256         test_must_fail ok=sigpipe git clone --no-checkout --filter=blob:none \
257                 "file://$(pwd)/srv.bare" pc3 2>err &&
258         test_i18ngrep "filter '\''blob:none'\'' not supported" err
259 '
260
261 test_expect_success 'upload-pack fails banned combine object filters' '
262         test_config -C srv.bare uploadpackfilter.allow false &&
263         test_config -C srv.bare uploadpackfilter.combine.allow true &&
264         test_config -C srv.bare uploadpackfilter.tree.allow true &&
265         test_config -C srv.bare uploadpackfilter.blob:none.allow false &&
266         test_must_fail ok=sigpipe git clone --no-checkout --filter=tree:1 \
267                 --filter=blob:none "file://$(pwd)/srv.bare" pc3 2>err &&
268         test_i18ngrep "filter '\''blob:none'\'' not supported" err
269 '
270
271 test_expect_success 'upload-pack fails banned object filters with fallback' '
272         test_config -C srv.bare uploadpackfilter.allow false &&
273         test_must_fail ok=sigpipe git clone --no-checkout --filter=blob:none \
274                 "file://$(pwd)/srv.bare" pc3 2>err &&
275         test_i18ngrep "filter '\''blob:none'\'' not supported" err
276 '
277
278 test_expect_success 'upload-pack limits tree depth filters' '
279         test_config -C srv.bare uploadpackfilter.allow false &&
280         test_config -C srv.bare uploadpackfilter.tree.allow true &&
281         test_config -C srv.bare uploadpackfilter.tree.maxDepth 0 &&
282         test_must_fail ok=sigpipe git clone --no-checkout --filter=tree:1 \
283                 "file://$(pwd)/srv.bare" pc3 2>err &&
284         test_i18ngrep "tree filter allows max depth 0, but got 1" err
285 '
286
287 test_expect_success 'partial clone fetches blobs pointed to by refs even if normally filtered out' '
288         rm -rf src dst &&
289         git init src &&
290         test_commit -C src x &&
291         test_config -C src uploadpack.allowfilter 1 &&
292         test_config -C src uploadpack.allowanysha1inwant 1 &&
293
294         # Create a tag pointing to a blob.
295         BLOB=$(echo blob-contents | git -C src hash-object --stdin -w) &&
296         git -C src tag myblob "$BLOB" &&
297
298         git clone --filter="blob:none" "file://$(pwd)/src" dst 2>err &&
299         ! grep "does not point to a valid object" err &&
300         git -C dst fsck
301 '
302
303 test_expect_success 'fetch what is specified on CLI even if already promised' '
304         rm -rf src dst.git &&
305         git init src &&
306         test_commit -C src foo &&
307         test_config -C src uploadpack.allowfilter 1 &&
308         test_config -C src uploadpack.allowanysha1inwant 1 &&
309
310         git hash-object --stdin <src/foo.t >blob &&
311
312         git clone --bare --filter=blob:none "file://$(pwd)/src" dst.git &&
313         git -C dst.git rev-list --objects --quiet --missing=print HEAD >missing_before &&
314         grep "?$(cat blob)" missing_before &&
315         git -C dst.git fetch origin $(cat blob) &&
316         git -C dst.git rev-list --objects --quiet --missing=print HEAD >missing_after &&
317         ! grep "?$(cat blob)" missing_after
318 '
319
320 test_expect_success 'setup src repo for sparse filter' '
321         git init sparse-src &&
322         git -C sparse-src config --local uploadpack.allowfilter 1 &&
323         git -C sparse-src config --local uploadpack.allowanysha1inwant 1 &&
324         test_commit -C sparse-src one &&
325         test_commit -C sparse-src two &&
326         echo /one.t >sparse-src/only-one &&
327         git -C sparse-src add . &&
328         git -C sparse-src commit -m "add sparse checkout files"
329 '
330
331 test_expect_success 'partial clone with sparse filter succeeds' '
332         rm -rf dst.git &&
333         git clone --no-local --bare \
334                   --filter=sparse:oid=master:only-one \
335                   sparse-src dst.git &&
336         (
337                 cd dst.git &&
338                 git rev-list --objects --missing=print HEAD >out &&
339                 grep "^$(git rev-parse HEAD:one.t)" out &&
340                 grep "^?$(git rev-parse HEAD:two.t)" out
341         )
342 '
343
344 test_expect_success 'partial clone with unresolvable sparse filter fails cleanly' '
345         rm -rf dst.git &&
346         test_must_fail git clone --no-local --bare \
347                                  --filter=sparse:oid=master:no-such-name \
348                                  sparse-src dst.git 2>err &&
349         test_i18ngrep "unable to access sparse blob in .master:no-such-name" err &&
350         test_must_fail git clone --no-local --bare \
351                                  --filter=sparse:oid=master \
352                                  sparse-src dst.git 2>err &&
353         test_i18ngrep "unable to parse sparse filter data in" err
354 '
355
356 setup_triangle () {
357         rm -rf big-blob.txt server client promisor-remote &&
358
359         printf "line %d\n" $(test_seq 1 100) >big-blob.txt &&
360
361         # Create a server with 2 commits: a commit with a big tree and a child
362         # commit with an incremental change. Also, create a partial clone
363         # client that only contains the first commit.
364         git init server &&
365         git -C server config --local uploadpack.allowfilter 1 &&
366         for i in $(test_seq 1 100)
367         do
368                 echo "make the tree big" >server/file$i &&
369                 git -C server add file$i
370         done &&
371         git -C server commit -m "initial" &&
372         git clone --bare --filter=tree:0 "file://$(pwd)/server" client &&
373         echo another line >>server/file1 &&
374         git -C server commit -am "incremental change" &&
375
376         # Create a promisor remote that only contains the tree and blob from
377         # the first commit.
378         git init promisor-remote &&
379         git -C server config --local uploadpack.allowanysha1inwant 1 &&
380         TREE_HASH=$(git -C server rev-parse HEAD~1^{tree}) &&
381         git -C promisor-remote fetch --keep "file://$(pwd)/server" "$TREE_HASH" &&
382         git -C promisor-remote count-objects -v >object-count &&
383         test_i18ngrep "count: 0" object-count &&
384         test_i18ngrep "in-pack: 2" object-count &&
385
386         # Set it as the promisor remote of client. Thus, whenever
387         # the client lazy fetches, the lazy fetch will succeed only if it is
388         # for this tree or blob.
389         test_commit -C promisor-remote one && # so that ref advertisement is not empty
390         git -C promisor-remote config --local uploadpack.allowanysha1inwant 1 &&
391         git -C client remote set-url origin "file://$(pwd)/promisor-remote"
392 }
393
394 # NEEDSWORK: The tests beginning with "fetch lazy-fetches" below only
395 # test that "fetch" avoid fetching trees and blobs, but not commits or
396 # tags. Revisit this if Git is ever taught to support partial clones
397 # with commits and/or tags filtered out.
398
399 test_expect_success 'fetch lazy-fetches only to resolve deltas' '
400         setup_triangle &&
401
402         # Exercise to make sure it works. Git will not fetch anything from the
403         # promisor remote other than for the big tree (because it needs to
404         # resolve the delta).
405         GIT_TRACE_PACKET="$(pwd)/trace" git -C client \
406                 fetch "file://$(pwd)/server" master &&
407
408         # Verify the assumption that the client needed to fetch the delta base
409         # to resolve the delta.
410         git -C server rev-parse HEAD~1^{tree} >hash &&
411         grep "want $(cat hash)" trace
412 '
413
414 test_expect_success 'fetch lazy-fetches only to resolve deltas, protocol v2' '
415         setup_triangle &&
416
417         git -C server config --local protocol.version 2 &&
418         git -C client config --local protocol.version 2 &&
419         git -C promisor-remote config --local protocol.version 2 &&
420
421         # Exercise to make sure it works. Git will not fetch anything from the
422         # promisor remote other than for the big blob (because it needs to
423         # resolve the delta).
424         GIT_TRACE_PACKET="$(pwd)/trace" git -C client \
425                 fetch "file://$(pwd)/server" master &&
426
427         # Verify that protocol version 2 was used.
428         grep "fetch< version 2" trace &&
429
430         # Verify the assumption that the client needed to fetch the delta base
431         # to resolve the delta.
432         git -C server rev-parse HEAD~1^{tree} >hash &&
433         grep "want $(cat hash)" trace
434 '
435
436 # The following two tests must be in this order. It is important that
437 # the srv.bare repository did not have tags during clone, but has tags
438 # in the fetch.
439
440 test_expect_success 'verify fetch succeeds when asking for new tags' '
441         git clone --filter=blob:none "file://$(pwd)/srv.bare" tag-test &&
442         for i in I J K
443         do
444                 test_commit -C src $i &&
445                 git -C src branch $i || return 1
446         done &&
447         git -C srv.bare fetch --tags origin +refs/heads/*:refs/heads/* &&
448         git -C tag-test -c protocol.version=2 fetch --tags origin
449 '
450
451 test_expect_success 'verify fetch downloads only one pack when updating refs' '
452         git clone --filter=blob:none "file://$(pwd)/srv.bare" pack-test &&
453         ls pack-test/.git/objects/pack/*pack >pack-list &&
454         test_line_count = 2 pack-list &&
455         for i in A B C
456         do
457                 test_commit -C src $i &&
458                 git -C src branch $i || return 1
459         done &&
460         git -C srv.bare fetch origin +refs/heads/*:refs/heads/* &&
461         git -C pack-test fetch origin &&
462         ls pack-test/.git/objects/pack/*pack >pack-list &&
463         test_line_count = 3 pack-list
464 '
465
466 test_expect_success 'single-branch tag following respects partial clone' '
467         git clone --single-branch -b B --filter=blob:none \
468                 "file://$(pwd)/srv.bare" single &&
469         git -C single rev-parse --verify refs/tags/B &&
470         git -C single rev-parse --verify refs/tags/A &&
471         test_must_fail git -C single rev-parse --verify refs/tags/C
472 '
473
474 test_expect_success 'fetch from a partial clone, protocol v0' '
475         rm -rf server client trace &&
476
477         # Pretend that the server is a partial clone
478         git init server &&
479         git -C server remote add a_remote "file://$(pwd)/" &&
480         test_config -C server core.repositoryformatversion 1 &&
481         test_config -C server extensions.partialclone a_remote &&
482         test_config -C server protocol.version 0 &&
483         test_commit -C server foo &&
484
485         # Fetch from the server
486         git init client &&
487         test_config -C client protocol.version 0 &&
488         test_commit -C client bar &&
489         GIT_TRACE_PACKET="$(pwd)/trace" git -C client fetch "file://$(pwd)/server" &&
490         ! grep "version 2" trace
491 '
492
493 test_expect_success 'fetch from a partial clone, protocol v2' '
494         rm -rf server client trace &&
495
496         # Pretend that the server is a partial clone
497         git init server &&
498         git -C server remote add a_remote "file://$(pwd)/" &&
499         test_config -C server core.repositoryformatversion 1 &&
500         test_config -C server extensions.partialclone a_remote &&
501         test_config -C server protocol.version 2 &&
502         test_commit -C server foo &&
503
504         # Fetch from the server
505         git init client &&
506         test_config -C client protocol.version 2 &&
507         test_commit -C client bar &&
508         GIT_TRACE_PACKET="$(pwd)/trace" git -C client fetch "file://$(pwd)/server" &&
509         grep "version 2" trace
510 '
511
512 . "$TEST_DIRECTORY"/lib-httpd.sh
513 start_httpd
514
515 # Converts bytes into their hexadecimal representation. For example,
516 # "printf 'ab\r\n' | hex_unpack" results in '61620d0a'.
517 hex_unpack () {
518         perl -e '$/ = undef; $input = <>; print unpack("H2" x length($input), $input)'
519 }
520
521 # Inserts $1 at the start of the string and every 2 characters thereafter.
522 intersperse () {
523         sed 's/\(..\)/'$1'\1/g'
524 }
525
526 # Create a one-time-perl command to replace the existing packfile with $1.
527 replace_packfile () {
528         # The protocol requires that the packfile be sent in sideband 1, hence
529         # the extra \x01 byte at the beginning.
530         cp $1 "$HTTPD_ROOT_PATH/one-time-pack" &&
531         echo 'if (/packfile/) {
532                 print;
533                 my $length = -s "one-time-pack";
534                 printf "%04x\x01", $length + 5;
535                 print `cat one-time-pack` . "0000";
536                 last
537         }' >"$HTTPD_ROOT_PATH/one-time-perl"
538 }
539
540 test_expect_success 'upon cloning, check that all refs point to objects' '
541         SERVER="$HTTPD_DOCUMENT_ROOT_PATH/server" &&
542         rm -rf "$SERVER" repo &&
543         test_create_repo "$SERVER" &&
544         test_commit -C "$SERVER" foo &&
545         test_config -C "$SERVER" uploadpack.allowfilter 1 &&
546         test_config -C "$SERVER" uploadpack.allowanysha1inwant 1 &&
547
548         # Create a tag pointing to a blob.
549         BLOB=$(echo blob-contents | git -C "$SERVER" hash-object --stdin -w) &&
550         git -C "$SERVER" tag myblob "$BLOB" &&
551
552         # Craft a packfile not including that blob.
553         git -C "$SERVER" rev-parse HEAD |
554         git -C "$SERVER" pack-objects --stdout >incomplete.pack &&
555
556         # Replace the existing packfile with the crafted one. The protocol
557         # requires that the packfile be sent in sideband 1, hence the extra
558         # \x01 byte at the beginning.
559         replace_packfile incomplete.pack &&
560
561         # Use protocol v2 because the perl command looks for the "packfile"
562         # section header.
563         test_config -C "$SERVER" protocol.version 2 &&
564         test_must_fail git -c protocol.version=2 clone \
565                 --filter=blob:none $HTTPD_URL/one_time_perl/server repo 2>err &&
566
567         test_i18ngrep "did not send all necessary objects" err &&
568
569         # Ensure that the one-time-perl script was used.
570         ! test -e "$HTTPD_ROOT_PATH/one-time-perl"
571 '
572
573 test_expect_success 'when partial cloning, tolerate server not sending target of tag' '
574         SERVER="$HTTPD_DOCUMENT_ROOT_PATH/server" &&
575         rm -rf "$SERVER" repo &&
576         test_create_repo "$SERVER" &&
577         test_commit -C "$SERVER" foo &&
578         test_config -C "$SERVER" uploadpack.allowfilter 1 &&
579         test_config -C "$SERVER" uploadpack.allowanysha1inwant 1 &&
580
581         # Create an annotated tag pointing to a blob.
582         BLOB=$(echo blob-contents | git -C "$SERVER" hash-object --stdin -w) &&
583         git -C "$SERVER" tag -m message -a myblob "$BLOB" &&
584
585         # Craft a packfile including the tag, but not the blob it points to.
586         # Also, omit objects referenced from HEAD in order to force a second
587         # fetch (to fetch missing objects) upon the automatic checkout that
588         # happens after a clone.
589         printf "%s\n%s\n--not\n%s\n%s\n" \
590                 $(git -C "$SERVER" rev-parse HEAD) \
591                 $(git -C "$SERVER" rev-parse myblob) \
592                 $(git -C "$SERVER" rev-parse HEAD^{tree}) \
593                 $(git -C "$SERVER" rev-parse myblob^{blob}) |
594                 git -C "$SERVER" pack-objects --thin --stdout >incomplete.pack &&
595
596         # Replace the existing packfile with the crafted one. The protocol
597         # requires that the packfile be sent in sideband 1, hence the extra
598         # \x01 byte at the beginning.
599         replace_packfile incomplete.pack &&
600
601         # Use protocol v2 because the perl command looks for the "packfile"
602         # section header.
603         test_config -C "$SERVER" protocol.version 2 &&
604
605         # Exercise to make sure it works.
606         git -c protocol.version=2 clone \
607                 --filter=blob:none $HTTPD_URL/one_time_perl/server repo 2> err &&
608         ! grep "missing object referenced by" err &&
609
610         # Ensure that the one-time-perl script was used.
611         ! test -e "$HTTPD_ROOT_PATH/one-time-perl"
612 '
613
614 test_expect_success 'tolerate server sending REF_DELTA against missing promisor objects' '
615         SERVER="$HTTPD_DOCUMENT_ROOT_PATH/server" &&
616         rm -rf "$SERVER" repo &&
617         test_create_repo "$SERVER" &&
618         test_config -C "$SERVER" uploadpack.allowfilter 1 &&
619         test_config -C "$SERVER" uploadpack.allowanysha1inwant 1 &&
620
621         # Create a commit with 2 blobs to be used as delta bases.
622         for i in $(test_seq 10)
623         do
624                 echo "this is a line" >>"$SERVER/foo.txt" &&
625                 echo "this is another line" >>"$SERVER/have.txt"
626         done &&
627         git -C "$SERVER" add foo.txt have.txt &&
628         git -C "$SERVER" commit -m bar &&
629         git -C "$SERVER" rev-parse HEAD:foo.txt >deltabase_missing &&
630         git -C "$SERVER" rev-parse HEAD:have.txt >deltabase_have &&
631
632         # Clone. The client has deltabase_have but not deltabase_missing.
633         git -c protocol.version=2 clone --no-checkout \
634                 --filter=blob:none $HTTPD_URL/one_time_perl/server repo &&
635         git -C repo hash-object -w -- "$SERVER/have.txt" &&
636
637         # Sanity check to ensure that the client does not have
638         # deltabase_missing.
639         git -C repo rev-list --objects --ignore-missing \
640                 -- $(cat deltabase_missing) >objlist &&
641         test_line_count = 0 objlist &&
642
643         # Another commit. This commit will be fetched by the client.
644         echo "abcdefghijklmnopqrstuvwxyz" >>"$SERVER/foo.txt" &&
645         echo "abcdefghijklmnopqrstuvwxyz" >>"$SERVER/have.txt" &&
646         git -C "$SERVER" add foo.txt have.txt &&
647         git -C "$SERVER" commit -m baz &&
648
649         # Pack a thin pack containing, among other things, HEAD:foo.txt
650         # delta-ed against HEAD^:foo.txt and HEAD:have.txt delta-ed against
651         # HEAD^:have.txt.
652         printf "%s\n--not\n%s\n" \
653                 $(git -C "$SERVER" rev-parse HEAD) \
654                 $(git -C "$SERVER" rev-parse HEAD^) |
655                 git -C "$SERVER" pack-objects --thin --stdout >thin.pack &&
656
657         # Ensure that the pack contains one delta against HEAD^:foo.txt. Since
658         # the delta contains at least 26 novel characters, the size cannot be
659         # contained in 4 bits, so the object header will take up 2 bytes. The
660         # most significant nybble of the first byte is 0b1111 (0b1 to indicate
661         # that the header continues, and 0b111 to indicate REF_DELTA), followed
662         # by any 3 nybbles, then the OID of the delta base.
663         printf "f.,..%s" $(intersperse "," <deltabase_missing) >want &&
664         hex_unpack <thin.pack | intersperse "," >have &&
665         grep $(cat want) have &&
666
667         # Ensure that the pack contains one delta against HEAD^:have.txt,
668         # similar to the above.
669         printf "f.,..%s" $(intersperse "," <deltabase_have) >want &&
670         hex_unpack <thin.pack | intersperse "," >have &&
671         grep $(cat want) have &&
672
673         replace_packfile thin.pack &&
674
675         # Use protocol v2 because the perl command looks for the "packfile"
676         # section header.
677         test_config -C "$SERVER" protocol.version 2 &&
678
679         # Fetch the thin pack and ensure that index-pack is able to handle the
680         # REF_DELTA object with a missing promisor delta base.
681         GIT_TRACE_PACKET="$(pwd)/trace" git -C repo -c protocol.version=2 fetch &&
682
683         # Ensure that the missing delta base was directly fetched, but not the
684         # one that the client has.
685         grep "want $(cat deltabase_missing)" trace &&
686         ! grep "want $(cat deltabase_have)" trace &&
687
688         # Ensure that the one-time-perl script was used.
689         ! test -e "$HTTPD_ROOT_PATH/one-time-perl"
690 '
691
692 # DO NOT add non-httpd-specific tests here, because the last part of this
693 # test script is only executed when httpd is available and enabled.
694
695 test_done