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
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
|
shared_examples_for "Set" do
it "should create a new set containing the given objects" do
Multiset[]
Multiset[nil]
Multiset[1, 2, 3]
Multiset[].size.should eql(0)
Multiset[nil].size.should eql(1)
Multiset[[]].size.should eql(1)
Multiset[[nil]].size.should eql(1)
set = Multiset[2, 4, 6, 4]
Multiset.new([2, 4, 6]).should_not eql(set)
set = Multiset[2, 4, 6, 4]
Multiset.new([2, 4, 6, 4]).should eql(set)
end
it "should create a new set containing the elements of the given enumerable object" do
Multiset.new()
Multiset.new(nil)
Multiset.new([])
Multiset.new([1, 2])
Multiset.new('a'..'c')
lambda { Multiset.new(false) }.should raise_error
lambda { Multiset.new(1) }.should raise_error
lambda { Multiset.new(1, 2) }.should raise_error
Multiset.new().size.should eql(0)
Multiset.new(nil).size.should eql(0)
Multiset.new([]).size.should eql(0)
Multiset.new([nil]).size.should eql(1)
ary = [2, 4, 6, 4]
set = Multiset.new(ary)
ary.clear
set.should_not be_empty
set.size.should eql(4)
ary = [1, 2, 3]
s = Multiset.new(ary) { |o| o * 2 }
[2, 4, 6].should eql(s.sort)
end
it "should duplicate set" do
set1 = Multiset[1, 2]
set2 = set1.dup
set1.should_not equal(set2)
set1.should eql(set2)
set1.add(3)
set1.should_not eql(set2)
end
it "should return the number of elements" do
Multiset[].size.should eql(0)
Multiset[1, 2].size.should eql(2)
Multiset[1, 2, 1].size.should eql(3)
end
it "should return true if the set contains no elements" do
Multiset[].should be_empty
Multiset[1, 2].should_not be_empty
end
it "should remove all elements and returns self" do
set = Multiset[1, 2]
ret = set.clear
set.should equal(ret)
set.should be_empty
end
it "should replaces the contents of the set with the contents of the given enumerable object and returns self" do
set = Multiset[1, 2]
ret = set.replace('a'..'c')
set.should equal(ret)
set.should eql(Multiset['a', 'b', 'c'])
end
it "should convert the set to an array" do
set = Multiset[1, 2, 3, 2]
ary = set.to_a
ary.sort.should eql([1, 2, 2, 3])
end
it "should return true if the set contains the given object" do
set = Multiset[1, 2, 3]
set.include?(1).should be_true
set.include?(2).should be_true
set.include?(3).should be_true
set.include?(0).should be_false
set.include?(nil).should be_false
set = Multiset["1", nil, "2", nil, "0", "1", false]
set.include?(nil).should be_true
set.include?(false).should be_true
set.include?("1").should be_true
set.include?(0).should be_false
set.include?(true).should be_false
end
it "should return true if the set is a superset of the given set" do
set = Multiset[1, 2, 3]
lambda { set.superset?() }.should raise_error
lambda { set.superset?(2) }.should raise_error
lambda { set.superset?([2]) }.should raise_error
set.superset?(Multiset[]).should be_true
set.superset?(Multiset[1, 2]).should be_true
set.superset?(Multiset[1, 2, 3]).should be_true
set.superset?(Multiset[1, 2, 3, 4]).should be_false
set.superset?(Multiset[1, 4]).should be_false
Multiset[].superset?(Multiset[]).should be_true
end
it "should return true if the set is a proper superset of the given set" do
set = Multiset[1, 2, 3]
lambda { set.proper_superset?() }.should raise_error
lambda { set.proper_superset?(2) }.should raise_error
lambda { set.proper_superset?([2]) }.should raise_error
set.proper_superset?(Multiset[]).should be_true
set.proper_superset?(Multiset[1, 2]).should be_true
set.proper_superset?(Multiset[1, 2, 3]).should be_false
set.proper_superset?(Multiset[1, 2, 3, 4]).should be_false
set.proper_superset?(Multiset[1, 4]).should be_false
Multiset[].proper_superset?(Multiset[]).should be_false
end
it "should return true if the set is a subset of the given set" do
set = Multiset[1, 2, 3]
lambda { set.subset?() }.should raise_error
lambda { set.subset?(2) }.should raise_error
lambda { set.subset?([2]) }.should raise_error
set.subset?(Multiset[1, 2, 3, 4]).should be_true
set.subset?(Multiset[1, 2, 3]).should be_true
set.subset?(Multiset[1, 2]).should be_false
set.subset?(Multiset[]).should be_false
Multiset[].subset?(Multiset[1]).should be_true
Multiset[].subset?(Multiset[]).should be_true
end
it "should return true if the set is a proper subset of the given set" do
set = Multiset[1, 2, 3]
lambda { set.proper_subset?() }.should raise_error
lambda { set.proper_subset?(2) }.should raise_error
lambda { set.proper_subset?([2]) }.should raise_error
set.proper_subset?(Multiset[1, 2, 3, 4]).should be_true
set.proper_subset?(Multiset[1, 2, 3]).should be_false
set.proper_subset?(Multiset[1, 2]).should be_false
set.proper_subset?(Multiset[]).should be_false
Multiset[].proper_subset?(Multiset[]).should be_false
end
it "should add the given object to the set and return self" do
set = Multiset[1, 2, 3]
ret = set.add(2)
set.should equal(ret)
set.should eql(Multiset[1, 2, 2, 3])
ret = set.add(4)
set.should equal(ret)
set.should eql(Multiset[1, 2, 2, 3, 4])
end
it "should delete the given object from the set and return self" do
set = Multiset[1, 2, 3]
ret = set.delete(4)
set.should equal(ret)
set.should eql(Multiset[1, 2, 3])
ret = set.delete(2)
set.should eql(ret)
set.should eql(Multiset[1, 3])
end
it "should delete every element of the set for which block evaluates to true, and return self" do
set = Multiset.new(1..10)
ret = set.delete_if { |i| i > 10 }
set.should equal(ret)
set.should eql(Multiset.new(1..10))
set = Multiset.new(1..10)
ret = set.delete_if { |i| i % 3 == 0 }
set.should equal(ret)
set.should eql(Multiset[1, 2, 4, 5, 7, 8, 10])
end
it "should deletes every element of the set for which block evaluates to true but return nil if no changes were made" do
set = Multiset.new(1..10)
ret = set.reject! { |i| i > 10 }
ret.should be_nil
set.should eql(Multiset.new(1..10))
ret = set.reject! { |i| i % 3 == 0 }
set.should equal(ret)
set.should eql(Multiset[1, 2, 4, 5, 7, 8, 10])
end
it "should merge the elements of the given enumerable object to the set and return self" do
set = Multiset[1, 2, 3]
ret = set.merge([2, 4, 6])
set.should equal(ret)
set.should eql(Multiset[1, 2, 2, 3, 4, 6])
end
it "should delete every element that appears in the given enumerable object and return self" do
set = Multiset[1, 2, 3]
ret = set.subtract([2, 4, 6])
set.should equal(ret)
set.should eql(Multiset[1, 3])
end
it "should return a new set built by merging the set and the elements of the given enumerable object" do
set = Multiset[1, 2, 3]
ret = set + [2, 4, 6]
set.should_not equal(ret)
ret.should eql(Multiset[1, 2, 2, 3, 4, 6])
end
it "should return a new set built by duplicating the set, removing every element that appears in the given enumerable object" do
set = Multiset[1, 2, 3]
ret = set - [2, 4, 6]
set.should_not equal(ret)
ret.should eql(Multiset[1, 3])
end
it "should return a new set containing elements common to the set and the given enumerable object" do
set = Multiset[1, 2, 3, 4]
ret = set & [2, 4, 6]
set.should_not equal(ret)
ret.should eql(Multiset[2, 4])
end
it "should return a new set containing elements exclusive between the set and the given enumerable object" do
set = Multiset[1, 2, 3, 4]
ret = set ^ [2, 4, 5]
set.should_not equal(ret)
ret.should eql(Multiset[1, 3, 5])
end
end
shared_examples_for "Set with inital values [1, 2]" do
it "should add element to set" do
@set.add("foo")
@set.include?(1).should be_true
@set.include?(2).should be_true
@set.include?("foo").should be_true
end
it "should merge elements into the set" do
@set.merge([2, 6])
@set.include?(1).should be_true
@set.include?(2).should be_true
@set.include?(2).should be_true
@set.include?(6).should be_true
end
it "should iterate over all the values in the set" do
a = []
@set.each { |o| a << o }
a.should eql([1, 2])
end
it "should convert to an array" do
@set.to_a.should eql([1, 2])
end
it "should convert to a set" do
@set.to_set.to_a.should eql([1, 2])
end
end
|
