2023-07-20 18:44:02 +00:00
|
|
|
#!perl
|
2023-01-29 21:35:16 +00:00
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
|
|
|
|
use Test::Simple
|
|
|
|
tests => 4;
|
|
|
|
|
|
|
|
use TestFunctions;
|
|
|
|
|
2023-07-20 17:41:07 +00:00
|
|
|
my $tarball_dir = prep_tar();
|
2023-01-29 21:35:16 +00:00
|
|
|
my $test_dir = "$tarball_dir/t/timestamp-preservation";
|
|
|
|
my @files = (
|
|
|
|
"$test_dir/newer-more-linked",
|
|
|
|
"$test_dir/older-less-linked",
|
|
|
|
);
|
|
|
|
|
|
|
|
# Smoke test
|
2023-07-20 17:41:07 +00:00
|
|
|
ok !are_hardlinked(@files), 'not hardlinked before we start';
|
|
|
|
my $should_have_mtime = filemtime($files[1]);
|
|
|
|
run_script($test_dir);
|
|
|
|
ok file_exists(@files), 'files were not accidentally deleted';
|
|
|
|
ok are_hardlinked(@files);
|
|
|
|
ok has_mtime($should_have_mtime, @files), 'timestamps updated to use oldest';
|