simplify_static_dir/t/zero-size-non-linkage.t
2023-07-20 12:41:07 -05:00

21 lines
477 B
Perl

# vi: et sts=4 sw=4 ts=4
use strict;
use warnings;
use Test::Simple
tests => 3;
use TestFunctions;
my $tarball_dir = prep_tar();
my $test_dir = "$tarball_dir/t/zero-size";
my @files = (
"$test_dir/empty1",
"$test_dir/empty2",
);
# Smoke test
ok !are_hardlinked(@files), 'not hardlinked before we start';
run_script($test_dir);
ok file_exists(@files), 'files were not accidentally deleted';
ok !are_hardlinked(@files), 'zero-sized files did not get hardlinked';