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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
# -*- cperl -*-
use ExtUtils::testlib;
use Test::More;
use Test::Exception;
use Test::Warn 0.11;
use Test::Differences;
use Test::Memory::Cycle;
use Config::Model;
use Config::Model::Lister;
use Config::Model::Tester::Setup qw/init_test/;
use Data::Dumper;
use Log::Log4perl qw(:easy :levels);
use strict;
use warnings;
my ($model, $trace) = init_test();
my ( $cat, $models ) = Config::Model::Lister::available_models(1);
eq_or_diff( $cat->{system}, [qw/fstab popcon/], "check available system models" );
is( $models->{popcon}{model}, 'PopCon', "check available popcon" );
eq_or_diff( $cat->{application}, [qw/multistrap/], "check available application models" );
my $class_name = $model->create_config_class(
name => 'Sarge',
status => [ D => 'deprecated' ], #could be obsolete, standard
description => [ X => 'X-ray (long description)' ],
summary => [ X => 'X-ray (summary)' ],
element => [
[qw/D X Y Z/] => {
type => 'leaf',
class => 'Config::Model::Value',
value_type => 'enum',
choice => [qw/Av Bv Cv/] }
],
);
is( $class_name, 'Sarge', "check $class_name class name" );
my $canonical_model = $model->get_model_clone($class_name);
print "$class_name model:\n", Dumper($canonical_model) if $trace;
eq_or_diff(
$model->get_element_model( $class_name, 'D' ),
{
'value_type' => 'enum',
'status' => 'deprecated',
'type' => 'leaf',
'class' => 'Config::Model::Value',
'choice' => [ 'Av', 'Bv', 'Cv' ]
},
"check $class_name D element model"
);
eq_or_diff(
$model->get_element_model( $class_name, 'X' ),
{
'value_type' => 'enum',
'summary' => 'X-ray (summary)',
'type' => 'leaf',
'class' => 'Config::Model::Value',
'choice' => [ 'Av', 'Bv', 'Cv' ],
'description' => 'X-ray (long description)'
},
"check $class_name X element model"
);
$class_name = $model->create_config_class(
name => 'Captain',
element => [
bar => {
type => 'node',
config_class_name => 'Sarge'
} ] );
my @bad_model = (
name => "Master",
level => [ [qw/captain many/] => 'important' ],
element => [
captain => {
type => 'node',
config_class_name => 'Captain',
},
],
);
throws_ok { $model->create_config_class(@bad_model) }
"Config::Model::Exception::ModelDeclaration",
"check model with orphan level";
$class_name = $model->create_config_class(
name => "Master",
level => [ qw/captain/ => 'important' ],
element => [
captain => {
type => 'node',
config_class_name => 'Captain',
},
[qw/array_args hash_args/] => {
type => 'node',
config_class_name => 'Captain',
},
],
class_description => "Master description",
description => [
captain => "officer",
array_args => 'not officer'
] );
ok( 1, "Model created" );
is( $class_name, 'Master', "check $class_name class name" );
$canonical_model = $model->get_model_clone($class_name);
print "$class_name model:\n", Dumper($canonical_model) if $trace;
memory_cycle_ok( $model, "memory cycles" );
done_testing;
|
