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
|
## no critic (RequireLocalizedPunctuationVars)
use strict;
use warnings
FATAL => qw( all ),
NONFATAL => qw( deprecated exec internal malloc newline once portable redefine recursion uninitialized );
use File::chdir;
use Test::Expander -tempdir => {}, -srand => time;
use Test::Expander::Constants qw( $FMT_INVALID_ENV_ENTRY );
plan( 12 );
$METHOD //= '_set_env';
$METHOD_REF //= $CLASS->can( $METHOD );
can_ok( $CLASS, $METHOD );
ok( -d $TEMP_DIR, "temporary directory '$TEMP_DIR' created" );
my $class_path = $CLASS =~ s{::}{/}gr;
my $test_path = path( $TEMP_DIR )->child( 't' );
$test_path->child( $class_path )->mkpath;
{
local $CWD = $test_path->parent->stringify; ## no critic (ProhibitLocalVars)
my $test_file = path( 't' )->child( $class_path )->child( $METHOD . '.t' )->stringify;
my $env_file = path( 't' )->child( $class_path )->child( $METHOD . '.env' );
is( Test2::Plugin::SRand->from, 'import arg', "random seed is supplied as 'time'" );
ok( lives { $METHOD_REF->( $CLASS, $test_file ) }, 'no test file detected' );
path( $test_file )->touch;
subtest '1st env variable filled from a variable, 2nd one kept from %ENV, 3rd one ignored' => sub {
plan( 2 );
our $var = 'abc';
my $name = 'ABC';
my $value = '$' . __PACKAGE__ . '::var';
$env_file->spew( "$name = $value\nJust a comment line\nX\nY" );
%ENV = ( XXX => 'yyy', X => 'A' );
ok( lives { $METHOD_REF->( $CLASS, $test_file ) }, 'successfully executed' );
my $expected = { $name => lc( $name ), X => 'A' };
$expected->{ PWD } = $ENV{ PWD } if exists( $ENV{ PWD } );
is( \%ENV, $expected, "'%ENV' has the expected content" );
};
subtest 'env variable filled by a self-implemented sub' => sub {
plan( 2 );
my $name = 'ABC';
my $value = __PACKAGE__ . "::testEnv( lc( '$name' ) )";
$env_file->spew( "$name = $value" );
%ENV = ( XXX => 'yyy' );
ok( lives { $METHOD_REF->( $CLASS, $test_file ) }, 'successfully executed' );
my $expected = { $name => lc( $name ) };
$expected->{ PWD } = $ENV{ PWD } if exists( $ENV{ PWD } );
is( \%ENV, $expected, "'%ENV' has the expected content" );
};
subtest "env variable filled by a 'File::Temp::tempdir'" => sub {
plan( 3 );
my $name = 'ABC';
my $value = 'File::Temp::tempdir';
$env_file->spew( "$name = $value" );
%ENV = ( XXX => 'yyy' );
ok( lives { $METHOD_REF->( $CLASS, $test_file ) }, 'successfully executed' );
my %expected = ( $name => $value );
$expected{ PWD } = $ENV{ PWD } if exists( $ENV{ PWD } );
is( [ sort keys( %ENV ) ], [ sort keys( %expected ) ], "'%ENV' has the expected keys" );
ok( -d $ENV{ $name }, 'temporary directory exists' );
};
subtest 'env file does not exist' => sub {
plan( 2 );
$env_file->remove;
%ENV = ( XXX => 'yyy' );
ok( lives { $METHOD_REF->( $CLASS, $test_file ) }, 'successfully executed' );
my $expected = { XXX => 'yyy' };
$expected->{ PWD } = $ENV{ PWD } if exists( $ENV{ PWD } );
is( \%ENV, $expected, "'%ENV' remained unchanged" );
};
subtest 'directory structure does not correspond to class hierarchy' => sub {
plan( 2 );
$env_file->remove;
%ENV = ( XXX => 'yyy' );
ok( lives { $METHOD_REF->( 'ABC::' . $CLASS, $test_file ) }, 'successfully executed' );
my $expected = { XXX => 'yyy' };
$expected->{ PWD } = $ENV{ PWD } if exists( $ENV{ PWD } );
is( \%ENV, $expected, "'%ENV' remained unchanged" );
};
subtest 'multiple levels of env files, cascade usage of their entries, overwrite entry' => sub {
plan( 2 );
path( $env_file->parent->parent . '.env' )->spew( "C = '0'" );
path( $env_file->parent . '.env' )->spew( "A = '1'\nB = '2'\nD = \$ENV{ A } . \$ENV{ C }" );
$env_file->spew( "C = '3'" );
%ENV = ( XXX => 'yyy' );
local $CWD = $TEMP_DIR; ## no critic (ProhibitLocalVars)
ok( lives { $METHOD_REF->( $CLASS, $test_file ) }, 'successfully executed' );
my $expected = { A => '1', B => '2', C => '3', D => '10' };
$expected->{ PWD } = $ENV{ PWD } if exists( $ENV{ PWD } );
is( \%ENV, $expected, "'%ENV' has the expected content" );
path( $env_file->parent->parent . '.env' )->remove;
path( $env_file->parent . '.env' )->remove;
};
subtest 'env file with invalid syntax' => sub {
plan( 1 );
my $name = 'ABC';
my $value = 'abc->';
$env_file->spew( "$name = $value" );
my $expected = $FMT_INVALID_ENV_ENTRY =~ s/%d/0/r =~ s/%s/$env_file/r =~ s/%s/$name = $value/r =~ s/%s/.+/r;
like( dies { $METHOD_REF->( $CLASS, $test_file ) }, qr/$expected/, 'expected exception raised' );
};
subtest 'env file with undefined values' => sub {
plan( 1 );
my $name = 'ABC';
my $value = '$undefined';
$env_file->spew( "$name = $value" );
my $expected = $FMT_INVALID_ENV_ENTRY =~ s/%d/0/r =~ s/%s/$env_file/r =~ s/%s/$name = $value/r =~ s/%s/.+/r =~ s/(\$)/\\$1/r;
like( dies { $METHOD_REF->( $CLASS, $test_file ) }, qr/$expected/m, 'expected exception raised' );
};
}
sub testEnv { return $_[ 0 ] } ## no critic (RequireArgUnpacking)
|
