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