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:
Brandon Casey 2008-06-28 19:25:05 -05:00 committed by Junio C Hamano
parent 50e6102504
commit e896912c5e

View File

@ -4,6 +4,10 @@ test_description='git-repack works correctly'
. ./test-lib.sh
fsha1=
csha1=
tsha1=
test_expect_success '-A option leaves unreachable objects unpacked' '
echo content > file1 &&
git add . &&
@ -44,4 +48,34 @@ test_expect_success '-A option leaves unreachable objects unpacked' '
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