mirror of
https://codeberg.org/h3xx/simplify_static_dir
synced 2024-08-14 23:57:24 +00:00
22 lines
480 B
Perl
22 lines
480 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';
|