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
|
##
# Enumerable ISO Test
assert('Enumerable', '15.3.2') do
assert_equal(Module, Enumerable.class)
end
assert('Enumerable#all?', '15.3.2.2.1') do
assert_true([1,2,3].all?)
assert_false([1,false,3].all?)
end
assert('Enumerable#any?', '15.3.2.2.2') do
assert_true([false,true,false].any?)
assert_false([false,false,false].any?)
end
assert('Enumerable#collect', '15.3.2.2.3') do
assert_true [1,2,3].collect { |i| i + i } == [2,4,6]
end
assert('Enumerable#detect', '15.3.2.2.4') do
assert_true [1,2,3].detect() { true }
assert_equal 'a', [1,2,3].detect("a") { false }
end
assert('Array#each_with_index', '15.3.2.2.5') do
a = nil
b = nil
[1].each_with_index {|e,i| a = e; b = i}
assert_equal(1, a)
assert_equal(0, b)
end
assert('Enumerable#entries', '15.3.2.2.6') do
assert_equal([1], [1].entries)
end
assert('Enumerable#find', '15.3.2.2.7') do
assert_true [1,2,3].find() { true }
assert_equal 'a', [1,2,3].find("a") { false }
end
assert('Enumerable#find_all', '15.3.2.2.8') do
assert_true [1,2,3,4,5,6,7,8,9].find_all() {|i| i%2 == 0}, [2,4,6,8]
end
assert('Enumerable#grep', '15.3.2.2.9') do
assert_equal [4,5,6], [1,2,3,4,5,6,7,8,9].grep(4..6)
end
assert('Enumerable#include?', '15.3.2.2.10') do
assert_true [1,2,3,4,5,6,7,8,9].include?(5)
assert_false [1,2,3,4,5,6,7,8,9].include?(0)
end
assert('Enumerable#inject', '15.3.2.2.11') do
assert_equal 21, [1,2,3,4,5,6].inject() {|s, n| s + n}
assert_equal 22, [1,2,3,4,5,6].inject(1) {|s, n| s + n}
end
assert('Enumerable#map', '15.3.2.2.12') do
assert_equal [2,4,6], [1,2,3].map { |i| i + i }
end
assert('Enumerable#max', '15.3.2.2.13') do
a = ['aaa', 'bb', 'c']
assert_equal 'c', a.max
assert_equal 'aaa', a.max {|i1,i2| i1.length <=> i2.length}
end
assert('Enumerable#min', '15.3.2.2.14') do
a = ['aaa', 'bb', 'c']
assert_equal 'aaa', a.min
assert_equal 'c', a.min {|i1,i2| i1.length <=> i2.length}
end
assert('Enumerable#member?', '15.3.2.2.15') do
assert_true [1,2,3,4,5,6,7,8,9].member?(5)
assert_false [1,2,3,4,5,6,7,8,9].member?(0)
end
assert('Enumerable#partion', '15.3.2.2.16') do
[0,1,2,3,4,5,6,7,8,9].partition do |i|
i % 2 == 0
end == [[0,2,4,6,8], [1,3,5,7,9]]
end
assert('Enumerable#reject', '15.3.2.2.17') do
[0,1,2,3,4,5,6,7,8,9].reject do |i|
i % 2 == 0
end == [1,3,5,7,9]
end
assert('Enumerable#select', '15.3.2.2.18') do
assert_equal [2,4,6,8], [1,2,3,4,5,6,7,8,9].select() {|i| i%2 == 0}
end
assert('Enumerable#sort', '15.3.2.2.19') do
assert_equal [1,2,3,4,6,7], [7,3,1,2,6,4].sort
assert_equal [7,6,4,3,2,1], [7,3,1,2,6,4].sort {|e1,e2|e2<=>e1}
end
assert('Enumerable#to_a', '15.3.2.2.20') do
assert_equal [1], [1].to_a
end
|
