Adding upstream version 13.11.4.upstream/13.11.4upstream

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

1 files changed, 50 insertions, 0 deletions

diff --git a/t/dh_link/01-basic.t b/t/dh_link/01-basic.t
new file mode 100755
index 0000000..88c8e49
--- /dev/null
+++ b/t/dh_link/01-basic.t
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+plan(tests => 1);
+
+use File::Path qw(remove_tree);
+use File::Basename qw(dirname);
+use lib dirname(dirname(__FILE__));
+use Test::DH;
+
+each_compat_subtest {
+
+	remove_tree('debian/debhelper');
+
+	# It used to not make absolute links in this situation, and it should.
+	# #37774
+	ok(run_dh_tool('dh_link', 'etc/foo', 'usr/lib/bar'));
+	ok(readlink("debian/debhelper/usr/lib/bar"), "/etc/foo");
+
+
+	# let's make sure it makes simple relative links ok.
+	ok(run_dh_tool('dh_link', 'usr/bin/foo', 'usr/bin/bar'));
+	ok(readlink("debian/debhelper/usr/bin/bar"), "foo");
+	ok(run_dh_tool('dh_link', 'sbin/foo', 'sbin/bar'));
+	ok(readlink("debian/debhelper/sbin/bar"), "foo");
+
+	# ok, more complex relative links.
+	ok(run_dh_tool('dh_link', 'usr/lib/1', 'usr/bin/2'));
+	ok(readlink("debian/debhelper/usr/bin/2"),"../lib/1");
+
+	# Check conversion of relative symlink to different top-level directory
+	# into absolute symlink. (#244157)
+	system("mkdir -p debian/debhelper/usr/lib; mkdir -p debian/debhelper/lib; touch debian/debhelper/lib/libm.so; cd debian/debhelper/usr/lib; ln -sf ../../lib/libm.so");
+	ok(run_dh_tool('dh_link'));
+	ok(readlink("debian/debhelper/usr/lib/libm.so"), "/lib/libm.so");
+
+	# Link to self.
+	ok(run_dh_tool({ 'quiet' => 1 }, 'dh_link', 'usr/lib/foo', 'usr/lib/foo'));
+	ok(! -l "debian/debhelper/usr/lib/foo");
+
+	# Make sure the link conversion didn't change any of the
+	# previously made links.
+	ok(readlink("debian/debhelper/usr/lib/bar"), "/etc/foo");
+	ok(readlink("debian/debhelper/usr/bin/bar"), "foo");
+	ok(readlink("debian/debhelper/usr/bin/2"),"../lib/1");
+};
+