t/join_paths.t

   1 #!/usr/local/bin/perl
   2
   3 #
   4 # Testing join_paths();
   5 #
   6
   7 use strict;
   8 use warnings;
   9
  10 use Stow::Util qw(join_paths);
  11
  12 use Test::More tests => 14;
  13
  14 is(
  15     join_paths('a/b/c', 'd/e/f'),
  16     'a/b/c/d/e/f'
  17     => 'simple'
  18 );
  19
  20 is(
  21     join_paths('/a/b/c', '/d/e/f'),
  22     '/a/b/c/d/e/f'
  23     => 'leading /'
  24 );
  25
  26 is(
  27     join_paths('/a/b/c/', '/d/e/f/'),
  28     '/a/b/c/d/e/f'
  29     => 'trailing /'
  30 );
  31
  32 is(
  33     join_paths('///a/b///c//', '/d///////e/f'),
  34     '/a/b/c/d/e/f'
  35     => 'mltiple /\'s'
  36 );
  37
  38 is(
  39     join_paths('', 'a/b/c'),
  40     'a/b/c'
  41     => 'first empty'
  42 );
  43
  44 is(
  45     join_paths('a/b/c', ''),
  46     'a/b/c'
  47     => 'second empty'
  48 );
  49
  50 is(
  51     join_paths('/', 'a/b/c'),
  52     '/a/b/c'
  53     => 'first is /'
  54 );
  55
  56 is(
  57     join_paths('a/b/c', '/'),
  58     'a/b/c'
  59     => 'second is /'
  60 );
  61
  62 is(
  63     join_paths('///a/b///c//', '/d///////e/f'),
  64     '/a/b/c/d/e/f'
  65     => 'multiple /\'s'
  66 );
  67
  68
  69 is(
  70     join_paths('../a1/b1/../c1/', '/a2/../b2/e2'),
  71     '../a1/c1/b2/e2'
  72     => 'simple deref ".."'
  73 );
  74
  75 is(
  76     join_paths('../a1/b1/../c1/d1/e1', '../a2/../b2/c2/d2/../e2'),
  77     '../a1/c1/d1/b2/c2/e2'
  78     => 'complex deref ".."'
  79 );
  80
  81 is(
  82     join_paths('../a1/../../c1', 'a2/../../'),
  83     '../..'
  84     => 'too many ".."'
  85 );
  86
  87 is(
  88     join_paths('./a1', '../../a2'),
  89     '../a2'
  90     => 'drop any "./"'
  91 );
  92
  93 is(
  94     join_paths('a/b/c', '.'),
  95     'a/b/c'
  96     => '. on RHS'
  97 );