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"), "/");
};
|
