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
|
#
# This file is part of ruby-ffi.
# For licensing, see LICENSE.SPECS
#
require File.expand_path(File.join(File.dirname(__FILE__), "spec_helper"))
module TestEnum0
extend FFI::Library
end
module TestEnum1
extend FFI::Library
ffi_lib TestLibrary::PATH
enum [:c1, :c2, :c3, :c4]
enum [:c5, 42, :c6, :c7, :c8]
enum [:c9, 42, :c10, :c11, 4242, :c12]
enum [:c13, 42, :c14, 4242, :c15, 424242, :c16, 42424242]
attach_function :test_untagged_enum, [:int], :int
end
module TestEnum3
extend FFI::Library
ffi_lib TestLibrary::PATH
enum :enum_type1, [:c1, :c2, :c3, :c4]
enum :enum_type2, [:c5, 42, :c6, :c7, :c8]
enum :enum_type3, [:c9, 42, :c10, :c11, 4242, :c12]
enum :enum_type4, [:c13, 42, :c14, 4242, :c15, 424242, :c16, 42424242]
attach_function :test_tagged_typedef_enum1, [:enum_type1], :enum_type1
attach_function :test_tagged_typedef_enum2, [:enum_type2], :enum_type2
attach_function :test_tagged_typedef_enum3, [:enum_type3], :enum_type3
attach_function :test_tagged_typedef_enum4, [:enum_type4], :enum_type4
end
describe "A library with no enum defined" do
it "returns nil when asked for an enum" do
expect(TestEnum0.enum_type(:foo)).to be_nil
end
end
describe "An untagged enum" do
it "constants can be used as function parameters and return value" do
expect(TestEnum1.test_untagged_enum(:c1)).to eq(0)
expect(TestEnum1.test_untagged_enum(:c2)).to eq(1)
expect(TestEnum1.test_untagged_enum(:c3)).to eq(2)
expect(TestEnum1.test_untagged_enum(:c4)).to eq(3)
expect(TestEnum1.test_untagged_enum(:c5)).to eq(42)
expect(TestEnum1.test_untagged_enum(:c6)).to eq(43)
expect(TestEnum1.test_untagged_enum(:c7)).to eq(44)
expect(TestEnum1.test_untagged_enum(:c8)).to eq(45)
expect(TestEnum1.test_untagged_enum(:c9)).to eq(42)
expect(TestEnum1.test_untagged_enum(:c10)).to eq(43)
expect(TestEnum1.test_untagged_enum(:c11)).to eq(4242)
expect(TestEnum1.test_untagged_enum(:c12)).to eq(4243)
expect(TestEnum1.test_untagged_enum(:c13)).to eq(42)
expect(TestEnum1.test_untagged_enum(:c14)).to eq(4242)
expect(TestEnum1.test_untagged_enum(:c15)).to eq(424242)
expect(TestEnum1.test_untagged_enum(:c16)).to eq(42424242)
end
end
describe "A tagged typedef enum" do
it "is accessible through its tag" do
expect(TestEnum3.enum_type(:enum_type1)).not_to be_nil
expect(TestEnum3.enum_type(:enum_type2)).not_to be_nil
expect(TestEnum3.enum_type(:enum_type3)).not_to be_nil
expect(TestEnum3.enum_type(:enum_type4)).not_to be_nil
end
it "contains enum constants" do
expect(TestEnum3.enum_type(:enum_type1).symbols.length).to eq(4)
expect(TestEnum3.enum_type(:enum_type2).symbols.length).to eq(4)
expect(TestEnum3.enum_type(:enum_type3).symbols.length).to eq(4)
expect(TestEnum3.enum_type(:enum_type4).symbols.length).to eq(4)
end
it "constants can be used as function parameters and return value" do
expect(TestEnum3.test_tagged_typedef_enum1(:c1)).to be :c1
expect(TestEnum3.test_tagged_typedef_enum1(:c2)).to be :c2
expect(TestEnum3.test_tagged_typedef_enum1(:c3)).to be :c3
expect(TestEnum3.test_tagged_typedef_enum1(:c4)).to be :c4
expect(TestEnum3.test_tagged_typedef_enum2(:c5)).to be :c5
expect(TestEnum3.test_tagged_typedef_enum2(:c6)).to be :c6
expect(TestEnum3.test_tagged_typedef_enum2(:c7)).to be :c7
expect(TestEnum3.test_tagged_typedef_enum2(:c8)).to be :c8
expect(TestEnum3.test_tagged_typedef_enum3(:c9)).to be :c9
expect(TestEnum3.test_tagged_typedef_enum3(:c10)).to be :c10
expect(TestEnum3.test_tagged_typedef_enum3(:c11)).to be :c11
expect(TestEnum3.test_tagged_typedef_enum3(:c12)).to be :c12
expect(TestEnum3.test_tagged_typedef_enum4(:c13)).to be :c13
expect(TestEnum3.test_tagged_typedef_enum4(:c14)).to be :c14
expect(TestEnum3.test_tagged_typedef_enum4(:c15)).to be :c15
expect(TestEnum3.test_tagged_typedef_enum4(:c16)).to be :c16
end
it "integers can be used instead of constants" do
expect(TestEnum3.test_tagged_typedef_enum1(0)).to be :c1
expect(TestEnum3.test_tagged_typedef_enum1(1)).to be :c2
expect(TestEnum3.test_tagged_typedef_enum1(2)).to be :c3
expect(TestEnum3.test_tagged_typedef_enum1(3)).to be :c4
expect(TestEnum3.test_tagged_typedef_enum2(42)).to be :c5
expect(TestEnum3.test_tagged_typedef_enum2(43)).to be :c6
expect(TestEnum3.test_tagged_typedef_enum2(44)).to be :c7
expect(TestEnum3.test_tagged_typedef_enum2(45)).to be :c8
expect(TestEnum3.test_tagged_typedef_enum3(42)).to be :c9
expect(TestEnum3.test_tagged_typedef_enum3(43)).to be :c10
expect(TestEnum3.test_tagged_typedef_enum3(4242)).to be :c11
expect(TestEnum3.test_tagged_typedef_enum3(4243)).to be :c12
expect(TestEnum3.test_tagged_typedef_enum4(42)).to be :c13
expect(TestEnum3.test_tagged_typedef_enum4(4242)).to be :c14
expect(TestEnum3.test_tagged_typedef_enum4(424242)).to be :c15
expect(TestEnum3.test_tagged_typedef_enum4(42424242)).to be :c16
end
end
describe "All enums" do
it "have autonumbered constants when defined with names only" do
expect(TestEnum1.enum_value(:c1)).to eq(0)
expect(TestEnum1.enum_value(:c2)).to eq(1)
expect(TestEnum1.enum_value(:c3)).to eq(2)
expect(TestEnum1.enum_value(:c4)).to eq(3)
expect(TestEnum3.enum_value(:c1)).to eq(0)
expect(TestEnum3.enum_value(:c2)).to eq(1)
expect(TestEnum3.enum_value(:c3)).to eq(2)
expect(TestEnum3.enum_value(:c4)).to eq(3)
end
it "can have an explicit first constant and autonumbered subsequent constants" do
expect(TestEnum1.enum_value(:c5)).to eq(42)
expect(TestEnum1.enum_value(:c6)).to eq(43)
expect(TestEnum1.enum_value(:c7)).to eq(44)
expect(TestEnum1.enum_value(:c8)).to eq(45)
expect(TestEnum3.enum_value(:c5)).to eq(42)
expect(TestEnum3.enum_value(:c6)).to eq(43)
expect(TestEnum3.enum_value(:c7)).to eq(44)
expect(TestEnum3.enum_value(:c8)).to eq(45)
end
it "can have a mix of explicit and autonumbered constants" do
expect(TestEnum1.enum_value(:c9)).to eq(42)
expect(TestEnum1.enum_value(:c10)).to eq(43)
expect(TestEnum1.enum_value(:c11)).to eq(4242)
expect(TestEnum1.enum_value(:c12)).to eq(4243)
expect(TestEnum3.enum_value(:c9)).to eq(42)
expect(TestEnum3.enum_value(:c10)).to eq(43)
expect(TestEnum3.enum_value(:c11)).to eq(4242)
expect(TestEnum3.enum_value(:c12)).to eq(4243)
end
it "can have all its constants explicitely valued" do
expect(TestEnum1.enum_value(:c13)).to eq(42)
expect(TestEnum1.enum_value(:c14)).to eq(4242)
expect(TestEnum1.enum_value(:c15)).to eq(424242)
expect(TestEnum1.enum_value(:c16)).to eq(42424242)
expect(TestEnum3.enum_value(:c13)).to eq(42)
expect(TestEnum3.enum_value(:c14)).to eq(4242)
expect(TestEnum3.enum_value(:c15)).to eq(424242)
expect(TestEnum3.enum_value(:c16)).to eq(42424242)
end
it "return the constant corresponding to a specific value" do
enum = TestEnum3.enum_type(:enum_type1)
expect(enum[0]).to be :c1
expect(enum[1]).to be :c2
expect(enum[2]).to be :c3
expect(enum[3]).to be :c4
enum = TestEnum3.enum_type(:enum_type2)
expect(enum[42]).to be :c5
expect(enum[43]).to be :c6
expect(enum[44]).to be :c7
expect(enum[45]).to be :c8
enum = TestEnum3.enum_type(:enum_type3)
expect(enum[42]).to be :c9
expect(enum[43]).to be :c10
expect(enum[4242]).to be :c11
expect(enum[4243]).to be :c12
enum = TestEnum3.enum_type(:enum_type4)
expect(enum[42]).to be :c13
expect(enum[4242]).to be :c14
expect(enum[424242]).to be :c15
expect(enum[42424242]).to be :c16
end
it "return nil for values that don't have a symbol" do
enum = TestEnum3.enum_type(:enum_type1)
expect(enum[-1]).to be_nil
expect(enum[4]).to be_nil
enum = TestEnum3.enum_type(:enum_type2)
expect(enum[0]).to be_nil
expect(enum[41]).to be_nil
expect(enum[46]).to be_nil
enum = TestEnum3.enum_type(:enum_type3)
expect(enum[0]).to be_nil
expect(enum[41]).to be_nil
expect(enum[44]).to be_nil
expect(enum[4241]).to be_nil
expect(enum[4244]).to be_nil
enum = TestEnum3.enum_type(:enum_type4)
expect(enum[0]).to be_nil
expect(enum[41]).to be_nil
expect(enum[43]).to be_nil
expect(enum[4241]).to be_nil
expect(enum[4243]).to be_nil
expect(enum[424241]).to be_nil
expect(enum[424243]).to be_nil
expect(enum[42424241]).to be_nil
expect(enum[42424243]).to be_nil
end
it "duplicate enum keys rejected" do
expect { enum [ :a, 0xfee1dead, :b, 0xdeadbeef, :a, 0 ] }.to raise_error
end
end
|