4
class TestEnumerable < Test::Unit::TestCase
26
assert_equal([1, 2, 1, 2], @obj.grep(1..2))
28
@obj.grep(2) {|x| a << x }
29
assert_equal([2, 2], a)
33
assert_equal(2, @obj.count(1))
34
assert_equal(3, @obj.count {|x| x % 2 == 1 })
35
assert_equal(2, @obj.count(1) {|x| x % 2 == 1 })
36
assert_raise(ArgumentError) { @obj.count(0, 1) }
40
assert_equal(2, @obj.find {|x| x % 2 == 0 })
41
assert_equal(nil, @obj.find {|x| false })
42
assert_equal(:foo, @obj.find(proc { :foo }) {|x| false })
46
assert_equal(1, @obj.find_index {|x| x % 2 == 0 })
47
assert_equal(nil, @obj.find_index {|x| false })
51
assert_equal([1, 3, 1], @obj.find_all {|x| x % 2 == 1 })
55
assert_equal([2, 3, 2], @obj.reject {|x| x < 2 })
59
assert_equal([1, 2, 3, 1, 2], @obj.to_a)
63
assert_equal(12, @obj.inject {|z, x| z * x })
64
assert_equal(48, @obj.inject {|z, x| z * 2 + x })
65
assert_equal(12, @obj.inject(:*))
66
assert_equal(24, @obj.inject(2) {|z, x| z * x })
67
assert_equal(24, @obj.inject(2, :*) {|z, x| z * x })
71
assert_equal([[1, 3, 1], [2, 2]], @obj.partition {|x| x % 2 == 1 })
75
h = { 1 => [1, 1], 2 => [2, 2], 3 => [3] }
76
assert_equal(h, @obj.group_by {|x| x })
80
assert_equal(1, @obj.first)
81
assert_equal([1, 2, 3], @obj.first(3))
85
assert_equal([1, 1, 2, 2, 3], @obj.sort)
89
assert_equal([3, 2, 2, 1, 1], @obj.sort_by {|x| -x })
93
assert_equal(true, @obj.all? {|x| x <= 3 })
94
assert_equal(false, @obj.all? {|x| x < 3 })
95
assert_equal(true, @obj.all?)
96
assert_equal(false, [true, true, false].all?)
100
assert_equal(true, @obj.any? {|x| x >= 3 })
101
assert_equal(false, @obj.any? {|x| x > 3 })
102
assert_equal(true, @obj.any?)
103
assert_equal(false, [false, false, false].any?)
107
assert(@obj.one? {|x| x == 3 })
108
assert(!(@obj.one? {|x| x == 1 }))
109
assert(!(@obj.one? {|x| x == 4 }))
110
assert(%w{ant bear cat}.one? {|word| word.length == 4})
111
assert(!(%w{ant bear cat}.one? {|word| word.length > 4}))
112
assert(!(%w{ant bear cat}.one? {|word| word.length < 4}))
113
assert(!([ nil, true, 99 ].one?))
114
assert([ nil, true, false ].one?)
118
assert(@obj.none? {|x| x == 4 })
119
assert(!(@obj.none? {|x| x == 1 }))
120
assert(!(@obj.none? {|x| x == 3 }))
121
assert(%w{ant bear cat}.none? {|word| word.length == 5})
122
assert(!(%w{ant bear cat}.none? {|word| word.length >= 4}))
125
assert([nil,false].none?)
129
assert_equal(1, @obj.min)
130
assert_equal(3, @obj.min {|a,b| b <=> a })
131
a = %w(albatross dog horse)
132
assert_equal("albatross", a.min)
133
assert_equal("dog", a.min {|a,b| a.length <=> b.length })
134
assert_equal(1, [3,2,1].min)
138
assert_equal(3, @obj.max)
139
assert_equal(1, @obj.max {|a,b| b <=> a })
140
a = %w(albatross dog horse)
141
assert_equal("horse", a.max)
142
assert_equal("albatross", a.max {|a,b| a.length <=> b.length })
143
assert_equal(1, [3,2,1].max{|a,b| b <=> a })
147
assert_equal([1, 3], @obj.minmax)
148
assert_equal([3, 1], @obj.minmax {|a,b| b <=> a })
149
a = %w(albatross dog horse)
150
assert_equal(["albatross", "horse"], a.minmax)
151
assert_equal(["dog", "albatross"], a.minmax {|a,b| a.length <=> b.length })
152
assert_equal([1, 3], [2,3,1].minmax)
153
assert_equal([3, 1], [2,3,1].minmax {|a,b| b <=> a })
157
assert_equal(3, @obj.min_by {|x| -x })
158
a = %w(albatross dog horse)
159
assert_equal("dog", a.min_by {|x| x.length })
160
assert_equal(3, [2,3,1].min_by {|x| -x })
164
assert_equal(1, @obj.max_by {|x| -x })
165
a = %w(albatross dog horse)
166
assert_equal("albatross", a.max_by {|x| x.length })
167
assert_equal(1, [2,3,1].max_by {|x| -x })
171
assert_equal([3, 1], @obj.minmax_by {|x| -x })
172
a = %w(albatross dog horse)
173
assert_equal(["dog", "albatross"], a.minmax_by {|x| x.length })
174
assert_equal([3, 1], [2,3,1].minmax_by {|x| -x })
178
assert(@obj.member?(1))
179
assert(!(@obj.member?(4)))
180
assert([1,2,3].member?(1))
181
assert(!([1,2,3].member?(4)))
184
def test_each_with_index
186
@obj.each_with_index {|x, i| a << [x, i] }
187
assert_equal([[1,0],[2,1],[3,2],[1,3],[2,4]], a)
190
%w(cat dog wombat).each_with_index do |item, index|
193
assert_equal({"cat"=>0, "wombat"=>2, "dog"=>1}, hash)
197
assert_equal([[1,1],[2,2],[3,3],[1,1],[2,2]], @obj.zip(@obj))
199
@obj.zip([:a, :b, :c]) {|x,y| a << [x, y] }
200
assert_equal([[1,:a],[2,:b],[3,:c],[1,nil],[2,nil]], a)
204
assert_equal([1,2,3], @obj.take(3))
208
assert_equal([1,2], @obj.take_while {|x| x <= 2})
212
assert_equal([3,1,2], @obj.drop(2))
216
assert_equal([3,1,2], @obj.drop_while {|x| x <= 2})
220
assert_equal([1,2,3,1,2,1,2,3,1,2], @obj.cycle.take(10))
224
assert_raise(RuntimeError) do
226
@obj.sort_by {|x| callcc {|c2| c ||= c2 }; x }
230
assert_raise(RuntimeError) do
233
class << o; self; end.class_eval do
234
define_method(:<=>) do |x|
235
callcc {|c2| c ||= c2 }
239
[o, o].sort_by {|x| x }
243
assert_raise(RuntimeError) do
246
class << o; self; end.class_eval do
247
define_method(:<=>) do |x|
248
callcc {|c2| c ||= c2 }
252
[o, o, o].sort_by {|x| x }