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
|
# vim: cindent ft=perl sm sw=4
use warnings;
use strict;
use Test::More tests => 5;
BEGIN { use_ok('Config::Scoped') }
my ( $p, $cfg );
isa_ok( $p = Config::Scoped->new(), 'Config::Scoped' );
my $text = <<'eot';
# global scope
b=1
# new scope
# b gets redefined within scope
{
%warnings parameter off
foo {
b=2
}
}
# collect global scope parameters
bar {}
eot
my $expected = {
'foo' => { 'b' => '2' },
'bar' => { 'b' => '1' },
};
is_deeply( $p->parse( text => $text ), $expected, 'scoping tests, parameter' );
$text = <<'eot';
%macro _M1 m1
{
%warnings macro off
%macro _M1 m2
a = "_M1"
}
foo {
a = "_M1"
}
eot
$expected = { 'foo' => { 'a' => 'm1' } };
$p = Config::Scoped->new();
is_deeply( $p->parse( text => $text ), $expected, 'scoping tests, macro' );
$text = <<'eot';
foo bar baz { global = 1}
{
%warnings declaration off
foo bar baz { scope = 1 }
}
eot
$expected = {
'foo' => {
'bar' => {
'baz' => {
'scope' => '1'
}
}
}
};
$p = Config::Scoped->new();
is_deeply( $p->parse( text => $text ), $expected, 'scoping tests, declaration' );
|
