t7701-repack-unpack-unreachable.sh: check timestamp of unpacked objects
Unpacked objects should receive the timestamp of the pack they were unpacked from. Check. Signed-off-by: Brandon Casey <drafnel@gmail.com> Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:

committed by
Junio C Hamano

parent
50e6102504
commit
e896912c5e
@ -4,6 +4,10 @@ test_description='git-repack works correctly'
|
|||||||
|
|
||||||
. ./test-lib.sh
|
. ./test-lib.sh
|
||||||
|
|
||||||
|
fsha1=
|
||||||
|
csha1=
|
||||||
|
tsha1=
|
||||||
|
|
||||||
test_expect_success '-A option leaves unreachable objects unpacked' '
|
test_expect_success '-A option leaves unreachable objects unpacked' '
|
||||||
echo content > file1 &&
|
echo content > file1 &&
|
||||||
git add . &&
|
git add . &&
|
||||||
@ -44,4 +48,34 @@ test_expect_success '-A option leaves unreachable objects unpacked' '
|
|||||||
git show $tsha1
|
git show $tsha1
|
||||||
'
|
'
|
||||||
|
|
||||||
|
compare_mtimes ()
|
||||||
|
{
|
||||||
|
perl -e 'my $reference = shift;
|
||||||
|
foreach my $file (@ARGV) {
|
||||||
|
exit(1) unless(-f $file && -M $file == -M $reference);
|
||||||
|
}
|
||||||
|
exit(0);
|
||||||
|
' -- "$@"
|
||||||
|
}
|
||||||
|
|
||||||
|
test_expect_success 'unpacked objects receive timestamp of pack file' '
|
||||||
|
fsha1path=$(echo "$fsha1" | sed -e "s|\(..\)|\1/|") &&
|
||||||
|
fsha1path=".git/objects/$fsha1path" &&
|
||||||
|
csha1path=$(echo "$csha1" | sed -e "s|\(..\)|\1/|") &&
|
||||||
|
csha1path=".git/objects/$csha1path" &&
|
||||||
|
tsha1path=$(echo "$tsha1" | sed -e "s|\(..\)|\1/|") &&
|
||||||
|
tsha1path=".git/objects/$tsha1path" &&
|
||||||
|
git branch transient_branch $csha1 &&
|
||||||
|
git repack -a -d -l &&
|
||||||
|
test ! -f "$fsha1path" &&
|
||||||
|
test ! -f "$csha1path" &&
|
||||||
|
test ! -f "$tsha1path" &&
|
||||||
|
test 1 = $(ls -1 .git/objects/pack/pack-*.pack | wc -l) &&
|
||||||
|
packfile=$(ls .git/objects/pack/pack-*.pack) &&
|
||||||
|
git branch -D transient_branch &&
|
||||||
|
sleep 1 &&
|
||||||
|
git repack -A -l &&
|
||||||
|
compare_mtimes "$packfile" "$fsha1path" "$csha1path" "$tsha1path"
|
||||||
|
'
|
||||||
|
|
||||||
test_done
|
test_done
|
||||||
|
Reference in New Issue
Block a user