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
|
# set pragma
use strict;
# load test module
use Test::More qw(no_plan);
# load the module
use Getopt::ArgvFile qw(argvFile);
# prepare environment
$ENV{G_AF_NAMED_VAR}='Getopt::ArgvFile-named';
$ENV{G_AF_SYM_VAR}='Getopt::ArgvFile-sym';
# do not expand
argvFile(default=>1);
# declare expected result
my @expected=(
"-envoptn",
'$G_AF_NAMED_VAR/file',
"-envoptn",
'$G_AF_NAMED_VAR/file',
"-envoptn",
'$G_AF_NAMED_VAR/file',
"-envopts",
'${G_AF_SYM_VAR}/file',
"-envopts",
'${G_AF_SYM_VAR}/file',
"-envopts",
'${G_AF_SYM_VAR}/file',
"-envoptn",
'$G_AF_NAMED_VAR/file',
"-envopts",
'${G_AF_SYM_VAR}/file',
"-envoptn",
'$G_AF_NAMED_VAR/file',
"-envopts",
'${G_AF_SYM_VAR}/file',
"-envoptn",
'$G_AF_NAMED_VAR/file',
"-envopts",
'${G_AF_SYM_VAR}/file',
"-envoptn",
'',
'$G_AF_NAMED_VAR/file',
"-envoptu",
'$G_AF_UNKNOWN_VAR/file',
"-envoptg",
'\$G_AF_GUARDED_VAR/file',
);
# perform first check
is(@ARGV, @expected);
is_deeply(\@ARGV, \@expected);
# now expand
@ARGV=();
argvFile(default=>1, resolveEnvVars=>1);
# declare expected result
@expected=(
"-envoptn",
"$ENV{G_AF_NAMED_VAR}/file",
"-envoptn",
"$ENV{G_AF_NAMED_VAR}/file",
"-envoptn",
'$G_AF_NAMED_VAR/file',
"-envopts",
"$ENV{G_AF_SYM_VAR}/file",
"-envopts",
"$ENV{G_AF_SYM_VAR}/file",
"-envopts",
'${G_AF_SYM_VAR}/file',
"-envoptn",
"$ENV{G_AF_NAMED_VAR}/file",
"-envopts",
"$ENV{G_AF_SYM_VAR}/file",
"-envoptn",
"$ENV{G_AF_NAMED_VAR}/file",
"-envopts",
"$ENV{G_AF_SYM_VAR}/file",
"-envoptn",
"$ENV{G_AF_NAMED_VAR}/file",
"-envopts",
"$ENV{G_AF_SYM_VAR}/file",
"-envoptn",
'',
"$ENV{G_AF_NAMED_VAR}/file",
"-envoptu",
"/file",
"-envoptg",
'$G_AF_GUARDED_VAR/file',
);
# perform first check
is(@ARGV, @expected);
is_deeply(\@ARGV, \@expected);
|
