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
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
require "support/shared/integration/integration_helper"
describe "Resource.load_current_value" do
include IntegrationSupport
module Namer
extend self
attr_accessor :current_index
def incrementing_value
@incrementing_value += 1
@incrementing_value
end
attr_writer :incrementing_value
end
before(:all) { Namer.current_index = 1 }
before { Namer.current_index += 1 }
before { Namer.incrementing_value = 0 }
let(:resource_name) { :"load_current_value_dsl#{Namer.current_index}" }
let(:resource_class) {
result = Class.new(Chef::Resource) do
def self.to_s; resource_name; end
def self.inspect; resource_name.inspect; end
property :x, default: lazy { "default #{Namer.incrementing_value}" }
def self.created_x=(value)
@created = value
end
def self.created_x
@created
end
action :create do
new_resource.class.created_x = x
end
end
result.resource_name resource_name
result
}
# Pull on resource_class to initialize it
before { resource_class }
context "with a resource with load_current_value" do
before :each do
resource_class.load_current_value do
x "loaded #{Namer.incrementing_value} (#{self.class.properties.sort_by { |name,p| name }.
select { |name,p| p.is_set?(self) }.
map { |name,p| "#{name}=#{p.get(self)}" }.
join(", ") })"
end
end
context "and a resource with x set to a desired value" do
let(:resource) do
e = self
r = nil
converge {
r = public_send(e.resource_name, "blah") do
x "desired"
end
}
r
end
it "current_resource is passed name but not x" do
expect(resource.current_value.x).to eq "loaded 2 (name=blah)"
end
it "resource.current_value returns a different resource" do
expect(resource.current_value.x).to eq "loaded 2 (name=blah)"
expect(resource.x).to eq "desired"
end
it "resource.current_value constructs the resource anew each time" do
expect(resource.current_value.x).to eq "loaded 2 (name=blah)"
expect(resource.current_value.x).to eq "loaded 3 (name=blah)"
end
it "the provider accesses the current value of x" do
expect(resource.class.created_x).to eq "desired"
end
context "and identity: :i and :d with desired_state: false" do
before {
resource_class.class_eval do
property :i, identity: true
property :d, desired_state: false
end
}
before {
resource.i "desired_i"
resource.d "desired_d"
}
it "i, name and d are passed to load_current_value, but not x" do
expect(resource.current_value.x).to eq "loaded 2 (d=desired_d, i=desired_i, name=blah)"
end
end
context "and name_property: :i and :d with desired_state: false" do
before {
resource_class.class_eval do
property :i, name_property: true
property :d, desired_state: false
end
}
before {
resource.i "desired_i"
resource.d "desired_d"
}
it "i, name and d are passed to load_current_value, but not x" do
expect(resource.current_value.x).to eq "loaded 2 (d=desired_d, i=desired_i, name=blah)"
end
end
end
context "and a resource with no values set" do
let(:resource) do
e = self
r = nil
converge {
r = public_send(e.resource_name, "blah") do
end
}
r
end
it "the provider accesses values from load_current_value" do
expect(resource.class.created_x).to eq "loaded 1 (name=blah)"
end
end
let (:subresource_name) {
:"load_current_value_subresource_dsl#{Namer.current_index}"
}
let (:subresource_class) {
r = Class.new(resource_class) do
property :y, default: lazy { "default_y #{Namer.incrementing_value}" }
end
r.resource_name subresource_name
r
}
# Pull on subresource_class to initialize it
before { subresource_class }
let(:subresource) do
e = self
r = nil
converge {
r = public_send(e.subresource_name, "blah") do
x "desired"
end
}
r
end
context "and a child resource class with no load_current_value" do
it "the parent load_current_value is used" do
expect(subresource.current_value.x).to eq "loaded 2 (name=blah)"
end
it "load_current_value yields a copy of the child class" do
expect(subresource.current_value).to be_kind_of(subresource_class)
end
end
context "And a child resource class with load_current_value" do
before {
subresource_class.load_current_value do
y "loaded_y #{Namer.incrementing_value} (#{self.class.properties.sort_by { |name,p| name }.
select { |name,p| p.is_set?(self) }.
map { |name,p| "#{name}=#{p.get(self)}" }.
join(", ") })"
end
}
it "the overridden load_current_value is used" do
current_resource = subresource.current_value
expect(current_resource.x).to eq "default 3"
expect(current_resource.y).to eq "loaded_y 2 (name=blah)"
end
end
context "and a child resource class with load_current_value calling super()" do
before {
subresource_class.load_current_value do
super()
y "loaded_y #{Namer.incrementing_value} (#{self.class.properties.sort_by { |name,p| name }.
select { |name,p| p.is_set?(self) }.
map { |name,p| "#{name}=#{p.get(self)}" }.
join(", ") })"
end
}
it "the original load_current_value is called as well as the child one" do
current_resource = subresource.current_value
expect(current_resource.x).to eq "loaded 3 (name=blah)"
expect(current_resource.y).to eq "loaded_y 4 (name=blah, x=loaded 3 (name=blah))"
end
end
end
end
|