t/cli_options.t

   1 #!/usr/bin/perl
   2 #
   3 # This file is part of GNU Stow.
   4 #
   5 # GNU Stow is free software: you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation, either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # GNU Stow is distributed in the hope that it will be useful, but
  11 # WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  13 # General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program. If not, see https://www.gnu.org/licenses/.
  17
  18 #
  19 # Test processing of CLI options.
  20 #
  21
  22 use strict;
  23 use warnings;
  24
  25 use Test::More tests => 10;
  26
  27 use testutil;
  28
  29 require 'stow';
  30
  31 init_test_dirs();
  32
  33 local @ARGV = (
  34     '-v',
  35     '-d', "$TEST_DIR/stow",
  36     '-t', "$TEST_DIR/target",
  37     'dummy'
  38 );
  39
  40 my ($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
  41
  42 is($options->{verbose}, 1, 'verbose option');
  43 is($options->{dir}, "$TEST_DIR/stow", 'stow dir option');
  44
  45 my $stow = new_Stow(%$options);
  46
  47 is($stow->{stow_path}, "../stow" => 'stow dir');
  48 is_deeply($pkgs_to_stow, [ 'dummy' ] => 'default to stow');
  49
  50 #
  51 # Check mixed up package options
  52 #
  53 local @ARGV = (
  54     '-v',
  55     '-D', 'd1', 'd2',
  56     '-S', 's1',
  57     '-R', 'r1',
  58     '-D', 'd3',
  59     '-S', 's2', 's3',
  60     '-R', 'r2',
  61 );
  62
  63 ($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
  64 is_deeply($pkgs_to_delete, [ 'd1', 'd2', 'r1', 'd3', 'r2' ] => 'mixed deletes');
  65 is_deeply($pkgs_to_stow,   [ 's1', 'r1', 's2', 's3', 'r2' ] => 'mixed stows');
  66
  67 #
  68 # Check setting deferred paths
  69 #
  70 local @ARGV = (
  71     '--defer=man',
  72     '--defer=info',
  73     'dummy'
  74 );
  75 ($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
  76 is_deeply($options->{defer}, [ qr{\A(man)}, qr{\A(info)} ] => 'defer man and info');
  77
  78 #
  79 # Check setting override paths
  80 #
  81 local @ARGV = (
  82     '--override=man',
  83     '--override=info',
  84     'dummy'
  85 );
  86 ($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
  87 is_deeply($options->{override}, [qr{\A(man)}, qr{\A(info)}] => 'override man and info');
  88
  89 #
  90 # Check setting ignored paths
  91 #
  92 local @ARGV = (
  93     '--ignore=~',
  94     '--ignore=\.#.*',
  95     'dummy'
  96 );
  97 ($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
  98 is_deeply($options->{ignore}, [ qr{(~)\z}, qr{(\.#.*)\z} ] => 'ignore temp files');
  99
 100 #
 101 # Check that expansion not applied.
 102 #
 103 local @ARGV = (
 104     "--target=$TEST_DIR/".'$HOME',
 105     'dummy'
 106 );
 107 make_path("$TEST_DIR/".'$HOME');
 108 ($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
 109 is($options->{target}, "$TEST_DIR/".'$HOME', 'no expansion');
 110 remove_dir("$TEST_DIR/".'$HOME');
 111
 112 # vim:ft=perl