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
|
#
# This file is part of Config-Model
#
# This software is Copyright (c) 2012 by Dominique Dumont, Krzysztof Tyszecki.
#
# This is free software, licensed under:
#
# The GNU Lesser General Public License, Version 2.1, February 1999
#
$model_to_test = "Multistrap";
$from_scratch_file = <<'EOF' ,
## This file was written by Config::Model
## You may modify the content of this file. Configuration
## modifications will be preserved. Modifications in
## comments may be mangled.
[general]
include=/usr/share/multistrap/crosschroot.conf
EOF
@tests = (
{
name => 'arm',
config_file => '/home/foo/my_arm.conf',
check => {
'sections:toolchains packages:0' ,'g++-4.2-arm-linux-gnu',
'sections:toolchains packages:1', 'linux-libc-dev-arm-cross',
},
load_warnings => undef , # some weird warnings pop up in Perl smoke tests with perl 5.15.9
},
{
name => 'from_scratch',
config_file => '/home/foo/my_arm.conf',
load => "include=/usr/share/multistrap/crosschroot.conf" ,
check => {
# values brought by included file
'sections:debian packages:0', {qw/mode layered value dpkg-dev/},
'sections:base packages:0', {qw/mode layered value gcc-4.2-base/},
'sections:toolchains packages:0', undef,
'sections:toolchains packages:1', undef,
},
file_check_sub => sub {
my $r = shift ;
# this file was created after the load instructions above
unshift @$r, "/home/foo/my_arm.conf";
},
file_content => {
"/home/foo/my_arm.conf" => $from_scratch_file ,
}
},
{
name => 'igep0020',
config_file => '/home/foo/strap-igep0020.conf',
},
);
1;
|
