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
|
use Config::Model::BackendMgr;
use strict;
use warnings;
my @config_classes = ([
name => 'Host',
element => [
[qw/ipaddr alias/] => {
type => 'leaf',
value_type => 'uniline',
},
dummy => {qw/type leaf value_type uniline/},
]
]);
push @config_classes, [
name => 'Hosts',
rw_config => {
backend => 'cds_file',
config_dir => '/etc/',
file => 'hosts.cds',
},
element => [
record => {
type => 'hash',
index_type => 'string',
write_empty_value => 1,
cargo => {
type => 'node',
config_class_name => 'Host',
},
},
]
];
my @tests = (
{
name => 'basic',
check => [
'record:localhost ipaddr' => '127.0.0.1',
'record:bilbo ipaddr' => '192.168.0.1'
]
},
);
return {
tests => \@tests,
model_to_test => "Hosts",
config_classes => \@config_classes,
conf_dir => '/etc',
conf_file_name => 'hosts.cds'
};
|
