1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
# set pragma
use strict;
# load modules
use Cwd;
use File::Basename;
use Test::More qw(no_plan);
# load the module
use Getopt::ArgvFile qw(argvFile);
# action!
argvFile(default=>1);
# declare expected result
my @expected=(
'-A',
'A',
'-b',
'bb',
'-ccc',
'ccc ccc ccc',
'-ddd',
'\'d1 d2" d3\' d4 d5 d6',
'-eee',
'"e1 e2\\\' e3" e4 e5 e6',
'par1',
'par2',
'par3',
'@casca',
'-case',
'lower',
);
# perform first check
is(@ARGV, @expected);
is_deeply(\@ARGV, \@expected);
# clear @ARGV, try another startup path
undef(@ARGV);
{
# adapt expectations (nestings does not work because
# the default tests use the installation directory)
my @current=@expected[0..$#expected-2];
# run it where the files are
my $dir=cwd();
chdir('t');
argvFile(current=>1);
chdir($dir);
# check results
is(@ARGV, @current);
is_deeply(\@ARGV, \@current);
}
# modify HOME and check the "home" switch
undef(@ARGV);
{
# adapt environment
local($ENV{HOME})=dirname($0);
# process hints
argvFile(home=>1);
# check results
is(@ARGV, @expected);
is_deeply(\@ARGV, \@expected);
}
# declare an alternative array
my @options;
# action!
argvFile(default=>1, array=>\@options);
# perform next check
is(@options, @expected);
is_deeply(\@options, \@expected);
# use other startup filename schemes: configured by string
undef(@ARGV);
argvFile(default=>1, startupFilename=>'.base.t.cfg');
# perform next check
is(@ARGV, @expected);
is_deeply(\@ARGV, \@expected);
# use other startup filename schemes: configured by a function that replies a scalar filename string
undef(@ARGV);
argvFile(default=>1, startupFilename=>sub {join('', '.', basename($_[0]), '.cfg');});
# perform next check
is(@ARGV, @expected);
is_deeply(\@ARGV, \@expected);
# use other startup filename schemes: filenames configured by array
undef(@ARGV);
argvFile(default=>1, startupFilename=>[qw(.base.trc .base.t.cfg)]);
# perform next check
is(@ARGV, @expected);
is_deeply(\@ARGV, \@expected);
# use other startup filename schemes: filenames configured by a function that supplies a list of filename
# choices
undef(@ARGV);
argvFile(default=>1, startupFilename=>sub {my $sname=basename($_[0]); [".${sname}rc", ".$sname.cfg"];});
# perform next check
is(@ARGV, @expected);
is_deeply(\@ARGV, \@expected);
|
