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
|
require 'puppet'
require 'spec_helper'
require 'puppet_spec/compiler'
require 'matchers/resource'
require 'shared_behaviours/iterative_functions'
describe 'the filter method' do
include PuppetSpec::Compiler
include Matchers::Resource
before :each do
Puppet[:parser] = 'future'
end
it 'should filter on an array (all berries)' do
catalog = compile_to_catalog(<<-MANIFEST)
$a = ['strawberry','blueberry','orange']
$a.filter |$x|{ $x =~ /berry$/}.each |$v|{
file { "/file_$v": ensure => present }
}
MANIFEST
expect(catalog).to have_resource("File[/file_strawberry]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_blueberry]").with_parameter(:ensure, 'present')
end
it 'should filter on enumerable type (Integer)' do
catalog = compile_to_catalog(<<-MANIFEST)
$a = Integer[1,10]
$a.filter |$x|{ $x % 3 == 0}.each |$v|{
file { "/file_$v": ensure => present }
}
MANIFEST
expect(catalog).to have_resource("File[/file_3]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_6]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_9]").with_parameter(:ensure, 'present')
end
it 'should filter on enumerable type (Integer) using two args index/value' do
catalog = compile_to_catalog(<<-MANIFEST)
$a = Integer[10,18]
$a.filter |$i, $x|{ $i % 3 == 0}.each |$v|{
file { "/file_$v": ensure => present }
}
MANIFEST
expect(catalog).to have_resource("File[/file_10]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_13]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_16]").with_parameter(:ensure, 'present')
end
it 'should produce an array when acting on an array' do
catalog = compile_to_catalog(<<-MANIFEST)
$a = ['strawberry','blueberry','orange']
$b = $a.filter |$x|{ $x =~ /berry$/}
file { "/file_${b[0]}": ensure => present }
file { "/file_${b[1]}": ensure => present }
MANIFEST
expect(catalog).to have_resource("File[/file_strawberry]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_blueberry]").with_parameter(:ensure, 'present')
end
it 'can filter array using index and value' do
catalog = compile_to_catalog(<<-MANIFEST)
$a = ['strawberry','blueberry','orange']
$b = $a.filter |$index, $x|{ $index == 0 or $index ==2}
file { "/file_${b[0]}": ensure => present }
file { "/file_${b[1]}": ensure => present }
MANIFEST
expect(catalog).to have_resource("File[/file_strawberry]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_orange]").with_parameter(:ensure, 'present')
end
it 'can filter array using index and value (using captures-rest)' do
catalog = compile_to_catalog(<<-MANIFEST)
$a = ['strawberry','blueberry','orange']
$b = $a.filter |*$ix|{ $ix[0] == 0 or $ix[0] ==2}
file { "/file_${b[0]}": ensure => present }
file { "/file_${b[1]}": ensure => present }
MANIFEST
expect(catalog).to have_resource("File[/file_strawberry]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_orange]").with_parameter(:ensure, 'present')
end
it 'filters on a hash (all berries) by key' do
catalog = compile_to_catalog(<<-MANIFEST)
$a = {'strawberry'=>'red','blueberry'=>'blue','orange'=>'orange'}
$a.filter |$x|{ $x[0] =~ /berry$/}.each |$v|{
file { "/file_${v[0]}": ensure => present }
}
MANIFEST
expect(catalog).to have_resource("File[/file_strawberry]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_blueberry]").with_parameter(:ensure, 'present')
end
it 'should produce a hash when acting on a hash' do
catalog = compile_to_catalog(<<-MANIFEST)
$a = {'strawberry'=>'red','blueberry'=>'blue','orange'=>'orange'}
$b = $a.filter |$x|{ $x[0] =~ /berry$/}
file { "/file_${b['strawberry']}": ensure => present }
file { "/file_${b['blueberry']}": ensure => present }
file { "/file_${b['orange']}": ensure => present }
MANIFEST
expect(catalog).to have_resource("File[/file_red]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_blue]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_]").with_parameter(:ensure, 'present')
end
it 'filters on a hash (all berries) by value' do
catalog = compile_to_catalog(<<-MANIFEST)
$a = {'strawb'=>'red berry','blueb'=>'blue berry','orange'=>'orange fruit'}
$a.filter |$x|{ $x[1] =~ /berry$/}.each |$v|{
file { "/file_${v[0]}": ensure => present }
}
MANIFEST
expect(catalog).to have_resource("File[/file_strawb]").with_parameter(:ensure, 'present')
expect(catalog).to have_resource("File[/file_blueb]").with_parameter(:ensure, 'present')
end
it_should_behave_like 'all iterative functions argument checks', 'filter'
it_should_behave_like 'all iterative functions hash handling', 'filter'
end
|
