blob: 9f644e78e4def6066139878ce86885bc44949014 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/perl
use Test;
plan(tests => 3);
# It used to not make absolute links in this situation, and it should.
# #37774
system("./dh_link","etc/foo","usr/lib/bar");
ok("/etc/foo",readlink("debian/tmp/usr/lib/bar"));
# let's make sure it makes simple relative links ok.
system("./dh_link","usr/bin/foo","usr/bin/bar");
ok("foo",readlink("debian/tmp/usr/bin/bar"));
# ok, more complex relative links.
system("./dh_link","usr/lib/1","usr/bin/2");
ok("../lib/1",readlink("debian/tmp/usr/bin/2"));
|
