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
|
#!/usr/bin/perl
# -*- cperl -*-
use strict;
use warnings;
use File::Temp qw / tempdir /;
my $dir = tempdir( CLEANUP => 1 );
use Test::More qw(no_plan);
BEGIN { use_ok ( "My::ConfigFactory" ) };
my $gen1_cnf= "$dir/gen1.cnf";
open(OUT, ">", $gen1_cnf) or die;
print OUT <<EOF
[mysqld.master]
# Comment
option1=value1
basedir=abasedir
[mysqld.1]
# Comment
option1=value1
option2=value2
[ENV]
MASTER_MY_PORT=\@mysqld.master.port
EOF
;
close OUT;
my $basedir= "../..";
my $config= My::ConfigFactory->new_config
(
{
basedir => $basedir,
template_path => $gen1_cnf,
vardir => "/path/to/var",
baseport => 10987,
#hosts => [ 'host1', 'host2' ],
}
);
print $config;
ok ( $config->group("mysqld.master"), "group mysqld.master exists");
ok ( $config->group("mysqld.1"), "group mysqld.1 exists");
ok ( $config->group("client"), "group client exists");
ok ( !$config->group("mysqld.3"), "group mysqld.3 does not exist");
ok ( $config->first_like("mysqld"), "group like 'mysqld' exists");
is( $config->value('mysqld.1', '#host'), 'localhost',
"mysqld.1.#host has been generated");
is( $config->value('client', 'host'), 'localhost',
"client.host has been generated");
is( $config->value('client', 'host'),
$config->value('mysqld.master', '#host'),
"client.host is same as mysqld.master.host");
ok ( $config->value("mysqld.1", 'character-sets-dir') =~ /$basedir.*charsets$/,
"'character-sets-dir' generated");
ok ( $config->value("mysqld.1", 'language') =~ /$basedir.*english$/,
"'language' generated");
ok ( $config->value("ENV", 'MASTER_MY_PORT') =~ /\d/,
"'language' generated");
my $gen2_cnf= "$dir/gen2.cnf";
open(OUT, ">", $gen2_cnf) or die;
print OUT <<EOF
[mysqld.master]
EOF
;
close OUT;
my $config2= My::ConfigFactory->new_config
(
{
basedir => $basedir,
template_path => $gen2_cnf,
vardir => "/path/to/var",
baseport => 10987,
#hosts => [ 'host1', 'host2' ],
}
);
print $config2;
ok ( $config2->first_like("mysqld"), "group like 'mysqld' exists");
|
