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
|
#!/usr/bin/perl
use Test::More;
plan(tests => 20);
use strict;
# 1
# test that we have the modules we need
require_ok('CGI::Application::Plugin::Config::Simple');
#create an empty hash to represent a C::A::P::C::S object
my $self = bless {}, 'CGI::Application::Plugin::Config::Simple';
# 2..11
# ok, set the environment variable to make sure we can get that
{
$ENV{CGIAPP_CONFIG_FILE} = 't/test.ini';
my $value = $self->config_file();
is($value, 't/test.ini', 'Config file name from %ENV');
# now let's get a few parameters
$value = $self->config_param('block1.param11');
is($value, 'value11', 'Simple ini-file param 1');
$value = $self->config_param('block2.param22');
is($value, 'value22', 'Simple ini-file param 2');
# now let's set some parameters
$value = $self->config_param('block1.param11' => 'testing11', 'block2.param22' => 'testing22');
ok($value, 'Set ini-file params 1');
# and test their values
$value = $self->config_param('block1.param11');
is($value, 'testing11', 'Simple ini-file param 1');
$value = $self->config_param('block2.param22');
is($value, 'testing22', 'Simple ini-file param 2');
# now let's set them back
$value = $self->config_param('block1.param11' => 'value11', 'block2.param22' => 'value22');
ok($value, 'Set ini-file params 2');
# now let's get all of the values in a hash
$value = $self->config_param();
is(ref($value), 'HASH', 'Get all ini-file params');
# now let's test this hash's values
is($value->{'block1.param11'}, 'value11', 'Testing individual elements of entire config hash 1');
is($value->{'block2.param22'}, 'value22', 'Testing individual elements of entire config hash 2');
}
# 12..16
# now let's change config files
{
my $value = $self->config_file('t/test.conf');
is($value, 't/test.conf', 'Change config file');
# now let's test these values
$value = $self->config_param('param1');
is($value, 'value1', 'Simple config param 1');
$value = $self->config_param('param2');
is($value, 'value2', 'Simple config param 2');
$value = $self->config_param('param3');
is($value, 'value3', 'Simple config param 3');
# now let's test the config() method to see if we get a Config::Simple object
$value = $self->config();
is(ref($value), 'Config::Simple', 'config() returned object');
}
# 17..20
# lets cause some errors
SKIP: {
# try to change it's permissions
my $new_file = 't/test_unwriteable.ini';
chmod(0000, $new_file) || die "Could not chmod $new_file! $!";
# skip these tests if we can still read the file
# cause we're probably running as root
skip('user wont have permission issues', 4) if( -r $new_file );
# un readable file
$self->config_file($new_file);
eval { $self->config_param('param1') };
like($@, qr/Permission denied/i, 'un readable file');
# un writeable file
chmod(0400, $new_file)
|| die "Could not chmod $new_file! $!";
my $value = $self->config_file($new_file);
is($value, $new_file, 'new unwriteable file');
eval { $self->config_param(param1 => 'xyz') };
like($@, qr/Could not write/i, 'could not write');
# don't specify a config file
$ENV{CGIAPP_CONFIG_FILE} = '';
$self->config_file('');
eval { $self->config_param('param1') };
like($@, qr/No config file/i, 'no file given');
}
|
