blob: b9801d24a8a158b299c06971eeb2d1db91916cdf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use File::Basename qw(dirname);
use lib dirname(dirname(__FILE__));
use Test::DH;
use File::Path qw(remove_tree make_path);
use Debian::Debhelper::Dh_Lib qw(!dirname);
plan(tests => 1);
each_compat_subtest {
my ($compat) = @_;
# #868204 - dh_installdocs did not replace dangling symlink
make_path('debian/debhelper/usr/share/doc/debhelper');
make_symlink_raw_target('../to/nowhere/bar',
'debian/debhelper/usr/share/doc/debhelper/README.Debian');
create_empty_file('debian/README.Debian');
ok(-l 'debian/debhelper/usr/share/doc/debhelper/README.Debian');
ok(!-e 'debian/debhelper/usr/share/doc/debhelper/README.Debian');
ok(run_dh_tool('dh_installdocs'));
ok(!-l 'debian/debhelper/usr/share/doc/debhelper/README.Debian', "#868204 [${compat}]");
ok(-f 'debian/debhelper/usr/share/doc/debhelper/README.Debian', "#868204 [${compat}]");
remove_tree('debian/debhelper', 'debian/tmp');
};
|
