t/stow.t

   1 #!/usr/local/bin/perl
   2
   3 #
   4 # Testing core application
   5 #
   6
   7 # load as a library
   8 BEGIN { use lib qw(.); require "t/util.pm"; require "stow"; }
   9
  10 use Test::More tests => 10;
  11
  12 local @ARGV = (
  13     '-v',
  14     '-d t/stow',
  15     '-t t/target',
  16     'dummy'
  17 );
  18
  19 ### setup
  20 eval { remove_dir('t/target'); };
  21 eval { remove_dir('t/stow');   };
  22 make_dir('t/target');
  23 make_dir('t/stow');
  24
  25 ok eval {process_options(); 1} => 'process options';
  26 ok eval {set_stow_path();   1} => 'set stow path';
  27
  28 is($Stow_Path,"../stow"               => 'stow dir');
  29 is_deeply(\@Pkgs_To_Stow, [ 'dummy' ] => 'default to stow');
  30
  31
  32 #
  33 # Check mixed up package options
  34 #
  35 %Option=();
  36 local @ARGV = (
  37     '-v',
  38     '-D', 'd1', 'd2',
  39     '-S', 's1',
  40     '-R', 'r1',
  41     '-D', 'd3',
  42     '-S', 's2', 's3',
  43     '-R', 'r2',
  44 );
  45
  46 @Pkgs_To_Stow = ();
  47 @Pkgs_To_Delete = ();
  48 process_options();
  49 is_deeply(\@Pkgs_To_Delete, [ 'd1', 'd2', 'r1', 'd3', 'r2' ] => 'mixed deletes');
  50 is_deeply(\@Pkgs_To_Stow,   [ 's1', 'r1', 's2', 's3', 'r2' ] => 'mixed stows');
  51
  52 #
  53 # Check setting defered paths
  54 #
  55 %Option=();
  56 local @ARGV = (
  57     '--defer=man',
  58     '--defer=info'
  59 );
  60 process_options();
  61 is_deeply($Option{'defer'}, [ qr(\Aman), qr(\Ainfo) ] => 'defer man and info');
  62
  63 #
  64 # Check setting override paths
  65 #
  66 %Option=();
  67 local @ARGV = (
  68     '--override=man',
  69     '--override=info'
  70 );
  71 process_options();
  72 is_deeply($Option{'override'}, [qr(\Aman), qr(\Ainfo)] => 'override man and info');
  73
  74 #
  75 # Check stripping any matched quotes
  76 #
  77 %Option=();
  78 local @ARGV = (
  79     "--override='man'",
  80     '--override="info"',
  81 );
  82 process_options();
  83 is_deeply($Option{'override'}, [qr(\Aman), qr(\Ainfo)] => 'strip shell quoting');
  84
  85 #
  86 # Check setting ignored paths
  87 #
  88 %Option=();
  89 local @ARGV = (
  90     '--ignore="~"',
  91     '--ignore="\.#.*"'
  92 );
  93 process_options();
  94 is_deeply($Option{'ignore'}, [ qr(~\z), qr(\.#.*\z) ] => 'ignore temp files');
  95
  96
  97 # vim:ft=perl