t/relative_path.t

   1 #!/usr/local/bin/perl
   2
   3 #
   4 # Testing relative_path();
   5 #
   6
   7 # load as a library
   8 BEGIN { use lib qw(. ..); require "stow"; }
   9
  10 use Test::More tests => 5;
  11
  12 is(
  13     relative_path('a/b/c', 'a/b/d'),
  14     '../d',
  15     => 'diferent branches'
  16 );
  17
  18 is(
  19     relative_path('/a/b/c', '/a/b/c/d'),
  20     'd',
  21     => 'lower same branch'
  22 );
  23
  24 is(
  25     relative_path('a/b/c', 'a/b'),
  26     '..',
  27     => 'higher, same branch'
  28 );
  29
  30 is(
  31     relative_path('/a/b/c', '/d/e/f'),
  32     '../../../d/e/f',
  33     => 'common parent is /'
  34 );
  35
  36 is(
  37     relative_path('///a//b//c////', '/a////b/c/d////'),
  38     'd',
  39     => 'extra /\'s '
  40 );
  41