perl: install private Error.pm if the site version is older than our own
[git/mingw.git] / t / t5300-pack-object.sh
blob083095f7f3a6720836f135835091e6d27d18617a
1 #!/bin/sh
3 # Copyright (c) 2005 Junio C Hamano
6 test_description='git-pack-object
9 . ./test-lib.sh
11 TRASH=`pwd`
13 test_expect_success \
14 'setup' \
15 'rm -f .git/index*
16 for i in a b c
18 dd if=/dev/zero bs=4k count=1 | tr "\\0" $i >$i &&
19 git-update-index --add $i || return 1
20 done &&
21 cat c >d && echo foo >>d && git-update-index --add d &&
22 tree=`git-write-tree` &&
23 commit=`git-commit-tree $tree </dev/null` && {
24 echo $tree &&
25 echo $commit &&
26 git-ls-tree $tree | sed -e "s/.* \\([0-9a-f]*\\) .*/\\1/"
27 } >obj-list && {
28 git-diff-tree --root -p $commit &&
29 while read object
31 t=`git-cat-file -t $object` &&
32 git-cat-file $t $object || return 1
33 done <obj-list
34 } >expect'
36 test_expect_success \
37 'pack without delta' \
38 'packname_1=$(git-pack-objects --window=0 test-1 <obj-list)'
40 rm -fr .git2
41 mkdir .git2
43 test_expect_success \
44 'unpack without delta' \
45 "GIT_OBJECT_DIRECTORY=.git2/objects &&
46 export GIT_OBJECT_DIRECTORY &&
47 git-init &&
48 git-unpack-objects -n <test-1-${packname_1}.pack &&
49 git-unpack-objects <test-1-${packname_1}.pack"
51 unset GIT_OBJECT_DIRECTORY
52 cd "$TRASH/.git2"
54 test_expect_success \
55 'check unpack without delta' \
56 '(cd ../.git && find objects -type f -print) |
57 while read path
59 cmp $path ../.git/$path || {
60 echo $path differs.
61 return 1
63 done'
64 cd "$TRASH"
66 test_expect_success \
67 'pack with REF_DELTA' \
68 'pwd &&
69 packname_2=$(git-pack-objects test-2 <obj-list)'
71 rm -fr .git2
72 mkdir .git2
74 test_expect_success \
75 'unpack with REF_DELTA' \
76 'GIT_OBJECT_DIRECTORY=.git2/objects &&
77 export GIT_OBJECT_DIRECTORY &&
78 git-init &&
79 git-unpack-objects -n <test-2-${packname_2}.pack &&
80 git-unpack-objects <test-2-${packname_2}.pack'
82 unset GIT_OBJECT_DIRECTORY
83 cd "$TRASH/.git2"
84 test_expect_success \
85 'check unpack with REF_DELTA' \
86 '(cd ../.git && find objects -type f -print) |
87 while read path
89 cmp $path ../.git/$path || {
90 echo $path differs.
91 return 1
93 done'
94 cd "$TRASH"
96 test_expect_success \
97 'pack with OFS_DELTA' \
98 'pwd &&
99 packname_3=$(git-pack-objects --delta-base-offset test-3 <obj-list)'
101 rm -fr .git2
102 mkdir .git2
104 test_expect_success \
105 'unpack with OFS_DELTA' \
106 'GIT_OBJECT_DIRECTORY=.git2/objects &&
107 export GIT_OBJECT_DIRECTORY &&
108 git-init &&
109 git-unpack-objects -n <test-3-${packname_3}.pack &&
110 git-unpack-objects <test-3-${packname_3}.pack'
112 unset GIT_OBJECT_DIRECTORY
113 cd "$TRASH/.git2"
114 test_expect_success \
115 'check unpack with OFS_DELTA' \
116 '(cd ../.git && find objects -type f -print) |
117 while read path
119 cmp $path ../.git/$path || {
120 echo $path differs.
121 return 1
123 done'
124 cd "$TRASH"
126 test_expect_success 'compare delta flavors' '
127 perl -e '\''
128 defined($_ = -s $_) or die for @ARGV;
129 exit 1 if $ARGV[0] <= $ARGV[1];
130 '\'' test-2-$packname_2.pack test-3-$packname_3.pack
133 rm -fr .git2
134 mkdir .git2
136 test_expect_success \
137 'use packed objects' \
138 'GIT_OBJECT_DIRECTORY=.git2/objects &&
139 export GIT_OBJECT_DIRECTORY &&
140 git-init &&
141 cp test-1-${packname_1}.pack test-1-${packname_1}.idx .git2/objects/pack && {
142 git-diff-tree --root -p $commit &&
143 while read object
145 t=`git-cat-file -t $object` &&
146 git-cat-file $t $object || return 1
147 done <obj-list
148 } >current &&
149 diff expect current'
151 test_expect_success \
152 'use packed deltified (REF_DELTA) objects' \
153 'GIT_OBJECT_DIRECTORY=.git2/objects &&
154 export GIT_OBJECT_DIRECTORY &&
155 rm .git2/objects/pack/test-* &&
156 cp test-2-${packname_2}.pack test-2-${packname_2}.idx .git2/objects/pack && {
157 git-diff-tree --root -p $commit &&
158 while read object
160 t=`git-cat-file -t $object` &&
161 git-cat-file $t $object || return 1
162 done <obj-list
163 } >current &&
164 diff expect current'
166 test_expect_success \
167 'use packed deltified (OFS_DELTA) objects' \
168 'GIT_OBJECT_DIRECTORY=.git2/objects &&
169 export GIT_OBJECT_DIRECTORY &&
170 rm .git2/objects/pack/test-* &&
171 cp test-3-${packname_3}.pack test-3-${packname_3}.idx .git2/objects/pack && {
172 git-diff-tree --root -p $commit &&
173 while read object
175 t=`git-cat-file -t $object` &&
176 git-cat-file $t $object || return 1
177 done <obj-list
178 } >current &&
179 diff expect current'
181 unset GIT_OBJECT_DIRECTORY
183 test_expect_success \
184 'verify pack' \
185 'git-verify-pack test-1-${packname_1}.idx \
186 test-2-${packname_2}.idx \
187 test-3-${packname_3}.idx'
189 test_expect_success \
190 'corrupt a pack and see if verify catches' \
191 'cp test-1-${packname_1}.idx test-3.idx &&
192 cp test-2-${packname_2}.pack test-3.pack &&
193 if git-verify-pack test-3.idx
194 then false
195 else :;
196 fi &&
198 : PACK_SIGNATURE &&
199 cp test-1-${packname_1}.pack test-3.pack &&
200 dd if=/dev/zero of=test-3.pack count=1 bs=1 conv=notrunc seek=2 &&
201 if git-verify-pack test-3.idx
202 then false
203 else :;
204 fi &&
206 : PACK_VERSION &&
207 cp test-1-${packname_1}.pack test-3.pack &&
208 dd if=/dev/zero of=test-3.pack count=1 bs=1 conv=notrunc seek=7 &&
209 if git-verify-pack test-3.idx
210 then false
211 else :;
212 fi &&
214 : TYPE/SIZE byte of the first packed object data &&
215 cp test-1-${packname_1}.pack test-3.pack &&
216 dd if=/dev/zero of=test-3.pack count=1 bs=1 conv=notrunc seek=12 &&
217 if git-verify-pack test-3.idx
218 then false
219 else :;
220 fi &&
222 : sum of the index file itself &&
223 l=`wc -c <test-3.idx` &&
224 l=`expr $l - 20` &&
225 cp test-1-${packname_1}.pack test-3.pack &&
226 dd if=/dev/zero of=test-3.idx count=20 bs=1 conv=notrunc seek=$l &&
227 if git-verify-pack test-3.pack
228 then false
229 else :;
230 fi &&
234 test_expect_success \
235 'build pack index for an existing pack' \
236 'cp test-1-${packname_1}.pack test-3.pack &&
237 git-index-pack -o tmp.idx test-3.pack &&
238 cmp tmp.idx test-1-${packname_1}.idx &&
240 git-index-pack test-3.pack &&
241 cmp test-3.idx test-1-${packname_1}.idx &&
243 cp test-2-${packname_2}.pack test-3.pack &&
244 git-index-pack -o tmp.idx test-2-${packname_2}.pack &&
245 cmp tmp.idx test-2-${packname_2}.idx &&
247 git-index-pack test-3.pack &&
248 cmp test-3.idx test-2-${packname_2}.idx &&
250 cp test-3-${packname_3}.pack test-3.pack &&
251 git-index-pack -o tmp.idx test-3-${packname_3}.pack &&
252 cmp tmp.idx test-3-${packname_3}.idx &&
254 git-index-pack test-3.pack &&
255 cmp test-3.idx test-3-${packname_3}.idx &&
259 test_expect_success \
260 'fake a SHA1 hash collision' \
261 'test -f .git/objects/c8/2de19312b6c3695c0c18f70709a6c535682a67 &&
262 cp -f .git/objects/9d/235ed07cd19811a6ceb342de82f190e49c9f68 \
263 .git/objects/c8/2de19312b6c3695c0c18f70709a6c535682a67'
265 test_expect_failure \
266 'make sure index-pack detects the SHA1 collision' \
267 'git-index-pack -o bad.idx test-3.pack'
269 test_done