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
|
require 'test/unit'
class TestBasicExpressions < Test::Unit::TestCase
# ------------------------------------------------------ Alias
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
def testAlias1
x = Alias2.new
assert_equal("foo", x.bar)
assert_equal("foo+foo", x.baz)
# test_check for cache
assert_equal("foo+foo", x.baz)
end
class Alias3<Alias2
def foo
defined? super
end
def bar
defined? super
end
def quux
defined? super
end
end
def testAlias2
x = Alias3.new
assert(!x.foo)
assert_not_nil(x.bar)
assert(!x.quux)
end
# ------------------------------------------------------ defined?
def definedHelper
return !defined?(yield)
end
def testDefined?
$x = 123
assert_not_nil(defined?($x))
assert_equal('global-variable', defined?($x))
foo=5
assert_not_nil(defined?(foo))
assert_not_nil(defined?(Array))
assert_not_nil(defined?(Object.new))
assert(!defined?(Object.print)) # private method
assert_not_nil(defined?(1 == 2)) # operator expression
assert_not_nil(definedHelper) # not iterator
assert_not_nil(!definedHelper {}) # not iterator
end
end
|
