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
|
use Test::More qw/no_plan/;
BEGIN { use_ok('CGI::Application::Plugin::ConfigAuto') };
use lib './t';
use strict;
$ENV{CGI_APP_RETURN_ONLY} = 1;
use TestAppBasic;
my $t1_obj = TestAppBasic->new();
$t1_obj->cfg_file('t/basic_config.pl','t/empty_config.pl');
my $t1_output = $t1_obj->run();
is($t1_obj->config('test_key_1'),11,'config(), accessing a field directly');
ok($t1_obj->std_config(), 'std_config() is present');
my %cfg = $t1_obj->cfg;
is($cfg{test_key_2},22,'cfg(), returning whole hash');
my $href = $t1_obj->cfg;
is($href->{test_key_2},22,'cfg(), returning hashref');
is($t1_obj->cfg->{test_key_2},22,'cfg(), accessing hash key directly via hashref');
###
my $t2_obj = TestAppBasic->new();
$t2_obj->cfg_file('t/basic_config.pl', {format => 'wrong'} );
eval { $t2_obj->cfg };
ok($@,'death expected if cfg file format is wrong');
$t2_obj->cfg_file('t/basic_config.pl', {format => 'perl'} );
eval { $t2_obj->cfg };
is($@,'', 'correct file format works');
$t2_obj->cfg_file('t/empty_config.t','t/basic_config.pl', {format => 'perl'} );
eval { $t2_obj->cfg };
is($@,'', 'correct file format works with second file');
|
