summaryrefslogtreecommitdiffstats
path: root/t/dh_link/02-346405.t
blob: 95053ca812a55def6be5a23edd49f49df19e5366 (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
#!/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');

	# Check links to the current directory and below, they used to be
	# unnecessarily long (#346405).
	ok(run_dh_tool('dh_link', 'usr/lib/geant4', 'usr/lib/geant4/a'));
	ok(readlink("debian/debhelper/usr/lib/geant4/a"), ".");
	ok(run_dh_tool('dh_link', 'usr/lib', 'usr/lib/geant4/b'));
	ok(readlink("debian/debhelper/usr/lib/geant4/b"), "..");
	ok(run_dh_tool('dh_link', 'usr', 'usr/lib/geant4/c'));
	ok(readlink("debian/debhelper/usr/lib/geant4/c"), "../..");
	ok(run_dh_tool('dh_link', '/', 'usr/lib/geant4/d'));
	ok(readlink("debian/debhelper/usr/lib/geant4/d"), "/");
};