Adding upstream version 13.15.3.upstream/13.15.3

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 81 insertions, 0 deletions

diff --git a/t/dh_movetousr/dh_movetousr.t b/t/dh_movetousr/dh_movetousr.t
new file mode 100644
index 0000000..ea2b943
--- /dev/null
+++ b/t/dh_movetousr/dh_movetousr.t
@@ -0,0 +1,81 @@
+#!/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(make_symlink_raw_target);
+
+plan(tests => 1);
+
+each_compat_subtest {
+	my ($compat) = @_;
+	make_path('debian/debhelper');
+	# Don't fail on an empty package.
+	ok(run_dh_tool('dh_movetousr'));
+	make_path('debian/debhelper/lib/foo');
+	make_path('debian/debhelper/lib/bar');
+	make_path('debian/debhelper/usr/lib/bar');
+	make_path('debian/debhelper/sbin');
+	create_empty_file('debian/debhelper/lib/foo/bar');
+	create_empty_file('debian/debhelper/lib/bar/foo');
+	create_empty_file('debian/debhelper/usr/lib/bar/bar');
+	make_symlink_raw_target('/foo', 'debian/debhelper/lib/foo/abs1');
+	make_symlink_raw_target('/sbin/foo', 'debian/debhelper/lib/foo/abs2');
+	make_symlink_raw_target('bar', 'debian/debhelper/lib/foo/rel1');
+	make_symlink_raw_target('../bar', 'debian/debhelper/lib/foo/rel2');
+	make_symlink_raw_target('../../bar', 'debian/debhelper/lib/foo/rel3');
+	make_symlink_raw_target('../../../bar', 'debian/debhelper/lib/foo/rel4');
+	make_symlink_raw_target('/usr/bin/bar', 'debian/debhelper/sbin/foo');
+	make_symlink_raw_target('dead', 'debian/debhelper/usr/lib/rel');
+	make_symlink_raw_target('/etc', 'debian/debhelper/usr/lib/abs1');
+	make_symlink_raw_target('/sbin/foo', 'debian/debhelper/usr/lib/abs2');
+	ok(run_dh_tool('dh_movetousr', '--fail-noop'));
+	# Files get moved.
+	ok(! -e 'debian/debhelper/lib');
+	ok(! -e 'debian/debhelper/sbin');
+	ok(-d 'debian/debhelper/usr/lib/foo');
+	ok(-d 'debian/debhelper/usr/lib/bar');
+	ok(-d 'debian/debhelper/usr/sbin');
+	# Preexisting file is not clobbered.
+	ok(-e 'debian/debhelper/usr/lib/bar/bar');
+	# Other entry is moved.
+	ok(-e 'debian/debhelper/usr/lib/bar/foo');
+	# Absolute link is moved as absolute.
+	ok(-l 'debian/debhelper/usr/lib/foo/abs1');
+	ok(readlink('debian/debhelper/usr/lib/foo/abs1') eq '/foo');
+	# ... unless the target is aliased.
+	ok (-l 'debian/debhelper/usr/lib/foo/abs2');
+	ok(readlink('debian/debhelper/usr/lib/foo/abs2') eq '../../sbin/foo');
+	# A contained relative symlink shall remain relative.
+	ok(-l 'debian/debhelper/usr/lib/foo/rel1');
+	ok(readlink('debian/debhelper/usr/lib/foo/rel1') eq 'bar');
+	# A relative symlink not crossing / shall remain relative.
+	ok(-l 'debian/debhelper/usr/lib/foo/rel2');
+	ok(readlink('debian/debhelper/usr/lib/foo/rel2') eq '../bar');
+	# A relative symlink hitting / shall become absolute.
+	ok(-l 'debian/debhelper/usr/lib/foo/rel3');
+	ok(readlink('debian/debhelper/usr/lib/foo/rel3') eq '/bar');
+	# A relative symlink going through /.. shall also become absolute.
+	ok(-l 'debian/debhelper/usr/lib/foo/rel4');
+	ok(readlink('debian/debhelper/usr/lib/foo/rel4') eq '/bar');
+	# An absolute link pointing into /usr has to become relative due to
+	# policy 10.5.
+	ok(-l 'debian/debhelper/usr/sbin/foo');
+	ok(readlink('debian/debhelper/usr/sbin/foo') eq '../bin/bar');
+	# Relative link within /usr is left alone.
+	ok(-l 'debian/debhelper/usr/lib/rel');
+	ok(readlink('debian/debhelper/usr/lib/rel') eq 'dead');
+	# Absolute link not pointing into aliased is left alone.
+	ok(-l 'debian/debhelper/usr/lib/abs1');
+	ok(readlink('debian/debhelper/usr/lib/abs1') eq '/etc');
+	# Absolute link pointing into aliased becomes relative.
+	ok(-l 'debian/debhelper/usr/lib/abs2');
+	ok(readlink('debian/debhelper/usr/lib/abs2') eq '../sbin/foo');
+	ok(!run_dh_tool({ quiet => 1 }, 'dh_movetousr', '--fail-noop'));
+	ok(run_dh_tool('dh_movetousr'));
+	remove_tree('debian/debhelper');
+};