Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

FERKI / Rex-1.16.0 / t / cmdb.t 

            

              
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

              
#!/usr/bin/env perl
use v5.12.5;
use warnings;
our $VERSION = '9999.99.99_99'; # VERSION
use Test::More tests => 3;
use Test::Warnings;
use Cwd qw(realpath);
use File::Spec;
use Rex::CMDB;
use Rex::Commands;
use Rex::Commands::File;
use Test::Deep qw(cmp_deeply);
my $cmdb_type = 'YAML';
my $cmdb_path = realpath( File::Spec->join( 't', 'cmdb' ) );
foreach my $caching (qw(0 1)) {
  my $setting = $caching ? 'enabled' : 'disabled';
  my $server = 'foo';
  my $expected_all = {
    ntp                 => [qw(ntp1 ntp2)],
    newntp              => [qw(ntpdefaultfoo01 ntpdefaultfoo02)],
    dns                 => [qw(1.1.1.1 2.2.2.2)],
    'MyTest::foo::mode' => '0666',
    vhost               => {
      name     => 'foohost',
      doc_root => '/var/www',
    },
    name   => $server,
    vhost2 => {
      name     => 'vhost2foo',
      doc_root => '/var/www',
    },
    users => {
      root => {
        password => 'proot',
        id       => '0',
      },
      user02 => {
        password => 'puser02',
        id       => '600',
      },
      user01 => {
        password => 'puser01',
        id       => '500',
      },
    },
  };
  subtest "Caching ${setting}" => sub {
    plan tests => 5;
    Rex::Config->set_use_cache($caching);
    set(
      cmdb => {
        type => $cmdb_type,
        path => $cmdb_path,
      },
    );
    subtest 'getting item for server foo' => sub {
      my $ntp = get( cmdb( 'ntp', $server ) );
      cmp_deeply( $ntp, [qw(ntp1 ntp2)],
        'arrayref server item from default.yml' );
      my $name = get( cmdb( 'name', $server ) );
      is( $name, $server, 'scalar server item from foo.yml' );
      my $dns = get( cmdb( 'dns', $server ) );
      cmp_deeply( $dns, [qw(1.1.1.1 2.2.2.2)],
        'arrayref server item from env/default.yml' );
      my $vhost = get( cmdb( 'vhost', $server ) );
      cmp_deeply(
        $vhost,
        { name => 'foohost', doc_root => '/var/www', },
        'hashref server item from env/foo.yml'
      );
    };
    subtest 'getting item' => sub {
      my $ntp = get( cmdb('ntp') );
      cmp_deeply( $ntp, [qw(ntp1 ntp2)], 'arrayref item from default.yml' );
      my $dns = get( cmdb('dns') );
      cmp_deeply( $dns, [qw(1.1.1.1 2.2.2.2)],
        'arrayref item from env/default.yml' );
    };
    subtest 'getting server' => sub {
      my $all = get( cmdb( undef, $server ) );
      cmp_deeply( $all, $expected_all, 'combined CMDB for server foo' );
    };
    subtest 'CMDB variables in templates' => sub {
      Rex::Config->set_register_cmdb_template(1);
      my $content = 'Hello this is <%= $::name %>';
      is(
        template( \$content, __no_sys_info__ => 1 ),
        'Hello this is defaultname',
        'get keys from CMDB'
      );
      is(
        template( \$content, { name => 'baz', __no_sys_info__ => 1 } ),
        'Hello this is baz',
        'overwrite keys from CMDB'
      );
    };
    subtest 'CMDB merging strategy' => sub {
      set(
        cmdb => {
          type           => $cmdb_type,
          path           => $cmdb_path,
          merge_behavior => 'LEFT_PRECEDENT',
        },
      );
      my $foo_all = get( cmdb( undef, $server ) );
      $expected_all->{newntp} = [qw(ntpdefaultfoo01 ntpdefaultfoo02 ntp1 ntp2)];
      cmp_deeply( $foo_all, $expected_all, 'DeepMerge CMDB' );
    };
  };
}