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
|
require 'test/unit'
require_relative 'envutil'
class TestAlias < Test::Unit::TestCase
class Alias0
def foo
"foo"
end
end
class Alias1 < Alias0
alias bar foo
def foo
"foo+#{super}"
end
end
class Alias2 < Alias1
alias baz foo
undef foo
end
class Alias3 < Alias2
def foo
super
end
def bar
super
end
def quux
super
end
end
def test_alias
x = Alias2.new
assert_equal "foo", x.bar
assert_equal "foo+foo", x.baz
assert_equal "foo+foo", x.baz # test_check for cache
x = Alias3.new
assert_raise(NoMethodError) { x.foo }
assert_equal "foo", x.bar
assert_raise(NoMethodError) { x.quux }
end
class C
def m
$SAFE
end
end
def test_nonexistmethod
assert_raise(NameError){
Class.new{
alias_method :foobarxyzzy, :barbaz
}
}
end
def test_send_alias
x = "abc"
class << x
alias_method :try, :__send__
end
assert_equal("ABC", x.try(:upcase), '[ruby-dev:38824]')
end
def test_special_const_alias
assert_raise(TypeError) do
1.instance_eval do
alias to_string to_s
end
end
end
def test_alias_with_zsuper_method
c = Class.new
c.class_eval do
def foo
:ok
end
def bar
:ng
end
private :foo
end
d = Class.new(c)
d.class_eval do
public :foo
alias bar foo
end
assert_equal(:ok, d.new.bar)
end
module SuperInAliasedModuleMethod
module M
def foo
super << :M
end
alias bar foo
end
class Base
def foo
[:Base]
end
end
class Derived < Base
include M
end
end
# [ruby-dev:46028]
def test_super_in_aliased_module_method # fails in 1.8
assert_equal([:Base, :M], SuperInAliasedModuleMethod::Derived.new.bar)
end
def test_alias_wb_miss
assert_normal_exit %q{
require 'stringio'
GC.verify_internal_consistency
GC.start
class StringIO
alias_method :read_nonblock, :sysread
end
GC.verify_internal_consistency
}
end
end
|
