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
122
123
124
125
126
127
128
129
130
131
132
133
134
|
# test plainfile backend
package Config::Model::Backend::MyReader; ## no critic (Modules::RequireFilenameMatchesPackage)
use Path::Tiny;
use Test::More;
use Mouse ;
use strict;
use warnings;
extends 'Config::Model::Backend::Any';
sub my_log {
note("plainfile backend test: @_");
}
sub read {
my $self = shift;
my %args = @_;
my $dir = $args{root}->child($args{config_dir});
foreach my $file ($dir->children()) {
my ($key,$elt) = split /\./,$file->basename;
my_log("dummy read file $file, loading $elt:$key");
$args{object}->load("$elt:$key");
}
return 1;
}
sub write {
my $self = shift;
my_log("dummy write called");
return 1;
}
# create minimal model to test plain file backend.
# this class is used by MiniPlain class below
my @config_classes = ({
element => [
list => {
cargo => {
type => 'leaf',
value_type => 'uniline'
},
type => 'list'
},
a_string => {
type => 'leaf',
value_type => 'string'
}
],
name => 'PlainTest::Class',
rw_config => {
auto_create => '1',
auto_delete => '1',
backend => 'PlainFile',
config_dir => 'debian',
file_mode => '0755',
file => '&index(-).&element(-).&element'
}
});
push @config_classes, {
name => 'MiniPlain',
element => [
[qw/install move/] => {
type => 'hash',
index_type => 'string',
cargo => {
type => 'node',
value_type => 'uniline',
config_class_name => 'PlainTest::Class'
},
default_keys => [qw/foo bar/],
},
],
rw_config => {
backend => 'MyReader',
config_dir => 'debian',
auto_delete => '1',
},
};
# the test suite
my @tests = (
{
name => 'with-index',
check => [
# check a specific value stored in example file
'install:foo list:0' => "foo val1",
'move:bar list:0' => "bar val1",
'move:bar list:2' => "bar val3",
],
file_mode => {
'debian/bar.install.list' => oct(755),
'debian/bar.move.list' => oct(755),
'debian/foo.install.list' => oct(755),
}
},
{ # test file removal
name => 'with-index-and-content-removal',
data_from => 'with-index',
load => 'install:bar list:.clear',
file_check_sub => sub { shift @{$_[0]}; },
load2 => 'install:bar',
},
{ # test file removal
name => 'with-index-and-removal',
data_from => 'with-index',
# push a value to force loading of install.bar file
load => 'install:bar list:.push(pushed) - install~bar',
file_check_sub => sub { shift @{$_[0]}; },
},
{ # test file rename
name => 'with-index-and-rename',
data_from => 'with-index',
# push a value to force loading of install.bar file
load => 'install:.rename(bar,baz) move:.rename(bar,baz)',
file_check_sub => sub { foreach my $file (@{$_[0]}) { $file =~ s/bar/baz/;} },
},
);
return {
# specify where is the example file
conf_dir => '',
# specify the name of the class to test
model_to_test => "MiniPlain",
config_classes => \@config_classes,
tests => \@tests
};
|
