t/find_stowed_path.t

   1 #!/usr/local/bin/perl
   2
   3 #
   4 # Testing find_stowed_path()
   5 #
   6
   7 BEGIN { require "t/util.pm"; require "stow"; }
   8
   9 use Test::More tests => 5;
  10
  11 eval { remove_dir('t/target'); };
  12 eval { remove_dir('t/stow');   };
  13 make_dir('t/target');
  14 make_dir('t/stow');
  15
  16 $Stow_Path = 't/stow';
  17 is(
  18     find_stowed_path('t/target/a/b/c', '../../../stow/a/b/c'),
  19     't/stow/a/b/c',
  20     => 'from root'
  21 );
  22
  23 $Stow_Path = '../stow';
  24 is(
  25     find_stowed_path('a/b/c','../../../stow/a/b/c'),
  26     '../stow/a/b/c',
  27     => 'from target directory'
  28 );
  29
  30 $Stow_Path = 't/target/stow';
  31
  32 is(
  33     find_stowed_path('t/target/a/b/c', '../../stow/a/b/c'),
  34     't/target/stow/a/b/c',
  35     => 'stow is subdir of target directory'
  36 );
  37
  38 is(
  39     find_stowed_path('t/target/a/b/c','../../empty'),
  40     '',
  41     => 'target is not stowed'
  42 );
  43
  44 make_dir('t/target/stow2');
  45 make_file('t/target/stow2/.stow');
  46
  47 is(
  48     find_stowed_path('t/target/a/b/c','../../stow2/a/b/c'),
  49     't/target/stow2/a/b/c'
  50     => q(detect alternate stow directory)
  51 );