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
|
# -*- cperl -*-
use strict;
use warnings;
use Path::Tiny;
use Test::More;
use Config::Model qw/cme/;
use Test::Log::Log4perl;
Test::Log::Log4perl->ignore_priority("debug");
# pseudo root where config files are written by config-model
my $wr_root = path('wr_root_p/cme');
# cleanup before tests
$wr_root->remove_tree;
my $wr_dir = $wr_root->child('popcon');
my $etc_dir = $wr_dir->child('etc');
my $conf_file = $etc_dir->child('popularity-contest.conf');
# put popcon data in place
my @orig = <DATA>;
$etc_dir->mkpath;
$conf_file->spew(@orig);
{
my $instance = cme(
application => 'popcon',
root_dir => $wr_dir,
canonical => 1,
);
ok($instance,"new instance created");
}
{
my $instance = cme('popcon');
ok($instance,"found instance created above");
# test minimal modif (re-order)
$instance->save(force => 1);
ok(1,"data saved");
}
my $new_data = $conf_file->slurp;
like $new_data, qr/cme/, "updated header";
like $new_data, qr/yes"\nMY/, "reordered file";
unlike $new_data, qr/removed/, "double comment is removed";
{
my $tlog = Test::Log::Log4perl->expect(
['Verbose.Loader', info => qr/command/],
['User', info => qr/Changes applied/ ],
['Instance', ( info => qr/write_back called/ ) x 2 ],
);
cme('popcon')->modify("PARTICIPATE=no");
}
ok(1,"load done and saved");
$new_data = $conf_file->slurp;
like $new_data, qr/PARTICIPATE="no"/, "updated config data";
done_testing;
__END__
# Config file for Debian's popularity-contest package.
#
# To change this file, use:
# dpkg-reconfigure popularity-contest
## should be removed
MY_HOSTID="aaaaaaaaaaaaaaaaaaaa"
# we participate
PARTICIPATE="yes"
USEHTTP="yes" # always http
DAY="6"
|
