t/dh_link

   1 #!/usr/bin/perl
   2 use Test;
   3 plan(tests => 3);
   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/tmp/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/tmp/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/tmp/usr/bin/2"));