mirror of
https://github.com/git/git
synced 2024-08-24 18:26:02 +00:00
Windows: Fix intermittent failures of t7701
The last test case checks whether unpacked objects receive the time stamp of the pack file. Due to different implementations of stat(2) by MSYS and our version in compat/mingw.c, the test fails in about half of the test runs. Note the following facts: - The test uses perl's -M operator to compare the time stamps. Since we depend on MSYS perl, the result of this operator is based on MSYS's implementation of the stat(2) call. - NTFS on Windows records fractional seconds. - The MSYS implementation of stat(2) *rounds* fractional seconds to full seconds instead of truncating them. This becomes obvious by comparing the modification times reported by 'ls --full-time $f' and 'stat $f' for various files $f. - Our implementation of stat(2) in compat/mingw.c *truncates* to full seconds. The consequence of this is that - add_packed_git() picks up a truncated whole second modification time from the pack file time stamp, which is then used for the loose objects, while the pack file retains its time stamp in fractional seconds; - but the test case compared the pack file's rounded modification times to the loose objects' truncated modification times. And half of the time the rounded modification time is not the same as its truncated modification time. The fix is that we replace perl by 'test-chmtime -v +0', which prints the truncated whole-second mtime without modifying it. Signed-off-by: Johannes Sixt <j6t@kdbg.org> Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
parent
297f6a535c
commit
d04099382b
|
@ -50,12 +50,10 @@ test_expect_success '-A with -d option leaves unreachable objects unpacked' '
|
||||||
|
|
||||||
compare_mtimes ()
|
compare_mtimes ()
|
||||||
{
|
{
|
||||||
perl -e 'my $reference = shift;
|
read tref rest &&
|
||||||
foreach my $file (@ARGV) {
|
while read t rest; do
|
||||||
exit(1) unless(-f $file && -M $file == -M $reference);
|
test "$tref" = "$t" || break
|
||||||
}
|
done
|
||||||
exit(0);
|
|
||||||
' -- "$@"
|
|
||||||
}
|
}
|
||||||
|
|
||||||
test_expect_success '-A without -d option leaves unreachable objects packed' '
|
test_expect_success '-A without -d option leaves unreachable objects packed' '
|
||||||
|
@ -87,7 +85,9 @@ test_expect_success 'unpacked objects receive timestamp of pack file' '
|
||||||
tmppack=".git/objects/pack/tmp_pack" &&
|
tmppack=".git/objects/pack/tmp_pack" &&
|
||||||
ln "$packfile" "$tmppack" &&
|
ln "$packfile" "$tmppack" &&
|
||||||
git repack -A -l -d &&
|
git repack -A -l -d &&
|
||||||
compare_mtimes "$tmppack" "$fsha1path" "$csha1path" "$tsha1path"
|
test-chmtime -v +0 "$tmppack" "$fsha1path" "$csha1path" "$tsha1path" \
|
||||||
|
> mtimes &&
|
||||||
|
compare_mtimes < mtimes
|
||||||
'
|
'
|
||||||
|
|
||||||
test_done
|
test_done
|
||||||
|
|
Loading…
Reference in a new issue