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
|
assert 'Module#<' do
a = Class.new
b = Class.new(a)
c = Class.new(a)
d = Module.new
e = Class.new { include d }
f = Module.new { include d }
# compare class to class
assert_true b < a
assert_false b < b
assert_false a < b
assert_nil c < b
# compare class to module
assert_true e < d
assert_false d < e
assert_nil a < d
# compare module to module
assert_true f < d
assert_false f < f
assert_false d < f
assert_raise(TypeError) { a < Object.new }
end
assert 'Module#<=' do
a = Class.new
b = Class.new(a)
c = Class.new(a)
d = Module.new
e = Class.new { include d }
f = Module.new { include d }
# compare class to class
assert_true b <= a
assert_true b <= b
assert_false a <= b
assert_nil c <= b
# compare class to module
assert_true e <= d
assert_false d <= e
assert_nil a <= d
# compare module to module
assert_true f <= d
assert_true f <= f
assert_false d <= f
assert_raise(TypeError) { a <= Object.new }
end
assert 'Module#name' do
module Outer
class Inner; end
const_set :SetInner, Class.new
end
assert_equal 'Outer', Outer.name
assert_equal 'Outer::Inner', Outer::Inner.name
assert_equal 'Outer::SetInner', Outer::SetInner.name
outer = Module.new do
const_set :SetInner, Class.new
end
Object.const_set :SetOuter, outer
assert_equal 'SetOuter', SetOuter.name
assert_equal 'SetOuter::SetInner', SetOuter::SetInner.name
mod = Module.new
cls = Class.new
assert_nil mod.name
assert_nil cls.name
end
assert 'Module#singleton_class?' do
mod = Module.new
cls = Class.new
scl = (class <<cls; self; end)
assert_false mod.singleton_class?
assert_false cls.singleton_class?
assert_true scl.singleton_class?
end
assert 'Module#module_eval' do
mod = Module.new
mod.class_exec(1,2,3) do |a,b,c|
assert_equal([1,2,3], [a,b,c])
def hi
"hi"
end
end
cls = Class.new
cls.class_exec(42) do |x|
assert_equal(42, x)
include mod
def hello
"hello"
end
end
obj = cls.new
assert_equal("hi", obj.hi)
assert_equal("hello", obj.hello)
end
|
