t/dh_link

   1 #!/usr/bin/perl
   2 use Test;
   3 plan(tests => 4);
   4
   5 # It used to not make absolute links in this situation, and it should.
   6 # #37774
   7 system("./dh_link","etc/foo","usr/lib/bar");
   8 ok("/etc/foo",readlink("debian/debhelper/usr/lib/bar"));
   9
  10 # let's make sure it makes simple relative links ok.
  11 system("./dh_link","usr/bin/foo","usr/bin/bar");
  12 ok("foo",readlink("debian/debhelper/usr/bin/bar"));
  13
  14 # ok, more complex relative links.
  15 system("./dh_link","usr/lib/1","usr/bin/2");
  16 ok("../lib/1",readlink("debian/debhelper/usr/bin/2"));
  17
  18 # this was bug #40159. Absolute links passes to dh_link.
  19 system("./dh_link","/etc/X11/dfm/system.dfmext","usr/share/dfm/dfmext");
  20 ok("/etc/X11/dfm/system.dfmext",readlink("debian/debhelper/usr/share/dfm/dfmext"));