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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
#!perl
## no critic [BuiltinFunctions::ProhibitStringyEval]
use strict;
use warnings;
use Cwd qw( getcwd abs_path );
use FindBin qw( $RealBin );
use File::Spec ();
my $lib_path;
BEGIN {
$lib_path = File::Spec->catdir( ( $RealBin =~ /(.+)/msx )[0], q{.}, 'lib' );
}
use lib "$lib_path";
use Test2::V0;
use Carp qw( croak );
use English qw( -no_match_vars ); # Avoids regex performance
use FileHandle ();
use File::Path qw( make_path );
use File::Temp ();
# use Test2::Require::Platform::Unix;
sub create_test_file {
my ( $dirs, $fn, $content ) = @_;
my $dir = File::Temp->newdir(
TEMPLATE => 'temp-envassert-test-XXXXX',
CLEANUP => 1,
DIR => File::Spec->tmpdir,
);
my $dir_path = abs_path( $dir->dirname );
make_path( File::Spec->catdir( $dir_path, @{$dirs} ) );
my $fh = FileHandle->new( File::Spec->catfile( $dir_path, @{$dirs}, $fn ), 'w' );
print {$fh} $content || croak;
$fh->close;
return $dir, $dir_path;
}
subtest 'Use Env::Assert plain without import arguments' => sub {
my $content = <<'EOF';
# shellcheck disable=SC2034,SC2125
# Simply assert the var exists
ALERT_EMAIL=^.*$
# Looks like a domain address
SITE_URL=^https
# POSIX regular expressions supported
GITHUB_TOKEN=^[[:word:]]{1,}$
EOF
my ( $temp_dir, $dir_path ) = create_test_file( [], q{.envdesc}, $content );
# Do not use __FILE__ because its value is not absolute and not updated
# when chdir is done.
my $this = getcwd;
($this) = $this =~ /(.+)/msx; # Make it non-tainted
my $subdir_path = File::Spec->catdir($dir_path);
diag 'Change to ' . $subdir_path;
chdir $subdir_path || croak;
my %new_env = (
ALERT_EMAIL => 'alert@example.com',
SITE_URL => 'https://www.example.com',
GITHUB_TOKEN => '0123456789qwertyuiop',
);
# We need to replace the current %ENV, not change individual values.
local %ENV = %new_env;
local $EVAL_ERROR = undef;
my $code = <<'EOF';
use Env::Assert;
1;
EOF
my $r = eval $code;
is( $EVAL_ERROR, q{}, 'use Env::Assert okay' );
is( $r, 1, 'evaled okay' );
chdir $this;
done_testing;
};
subtest 'Wrong import argument' => sub {
my %new_env = (
ALERT_EMAIL => 'alert@example.com',
SITE_URL => 'https://www.example.com',
GITHUB_TOKEN => '0123456789qwertyuiop',
);
# We need to replace the current %ENV, not change individual values.
local %ENV = %new_env;
local $EVAL_ERROR = undef;
my $code = <<'EOF';
use Env::Assert qw(not_assert);
1;
EOF
my $r = eval $code;
like( $EVAL_ERROR, qr/^Unknown \s argument \s 'not_assert' .*$/msx, 'use Env::Assert failed' );
is( $r, undef, 'evaled okay' );
# is($EVAL_ERROR, q{}, 'use Env::Dot failed' );
done_testing;
};
subtest 'Inline env desc file' => sub {
my %new_env = (
NUMVAR => '12345',
TEXTVAR => 'example_text',
);
# We need to replace the current %ENV, not change individual values.
local %ENV = %new_env;
local $EVAL_ERROR = undef;
my $code = <<'EOF';
use Env::Assert assert => {
envdesc => q{
NUMVAR=^\d+$
TEXTVAR=^\w+$
},
};
1;
EOF
my $r = eval $code;
is( $EVAL_ERROR, q{}, 'use Env::Assert okay' );
is( $r, 1, 'evaled okay' );
# like($EVAL_ERROR, qr/^Unknown \s argument \s 'not_assert' .*$/msx, 'use Env::Assert failed' );
# is( $r, undef, 'evaled okay');
# is($EVAL_ERROR, q{}, 'use Env::Dot failed' );
done_testing;
};
subtest 'Point to another env desc file' => sub {
my $subdir_filepath = File::Spec->catfile( $RealBin, 'env-assert', 'another-envdesc' );
my %new_env = (
A_NUMVAR => '12345',
A_TEXTVAR => 'example_text',
);
# We need to replace the current %ENV, not change individual values.
local %ENV = %new_env;
local $EVAL_ERROR = undef;
my $code = <<"EOF";
use Env::Assert assert => {
envdesc_file => '$subdir_filepath',
};
1;
EOF
local $EVAL_ERROR = undef;
my $r = eval $code;
is( $EVAL_ERROR, q{}, 'use Env::Assert successful' );
is( $r, 1, 'evaled okay' );
done_testing;
};
done_testing;
|
