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
|
require 'test/unit'
require "-test-/symbol"
module Test_Symbol
class TestType < Test::Unit::TestCase
def assert_symtype(sym, pred, msg = nil)
assert_send([Bug::Symbol, pred, sym], msg)
end
def assert_not_symtype(sym, pred, msg = nil)
assert_not_send([Bug::Symbol, pred, sym], msg)
end
def test_const
assert_symtype("Foo", :const?)
assert_not_symtype("F!", :const?)
assert_not_symtype("foo", :const?)
assert_not_symtype("@foo", :const?)
assert_not_symtype("@@foo", :const?)
assert_not_symtype("$foo", :const?)
assert_not_symtype("foo=", :const?)
assert_not_symtype("[foo]", :const?)
assert_not_symtype("xFoo", :const?)
end
def test_local
assert_symtype("foo", :local?)
assert_symtype("fooBar", :local?)
assert_symtype("foo_bar", :local?)
assert_not_symtype("foo!", :local?)
assert_not_symtype("foo?", :local?)
assert_not_symtype("Foo", :local?)
assert_not_symtype("@foo", :local?)
assert_not_symtype("@@foo", :local?)
assert_not_symtype("$foo", :local?)
assert_not_symtype("foo=", :local?)
assert_not_symtype("[foo]", :local?)
end
def test_global
assert_symtype("$foo", :global?)
assert_symtype("$$", :global?)
assert_not_symtype("$()", :global?)
assert_not_symtype("$", :global?)
assert_not_symtype("foo", :global?)
assert_not_symtype("Foo", :global?)
assert_not_symtype("@foo", :global?)
assert_not_symtype("@@foo", :global?)
assert_not_symtype("foo=", :global?)
assert_not_symtype("[foo]", :global?)
end
def test_instance
assert_symtype("@foo", :instance?)
assert_not_symtype("@", :instance?)
assert_not_symtype("@1", :instance?)
assert_not_symtype("@@", :instance?)
assert_not_symtype("foo", :instance?)
assert_not_symtype("Foo", :instance?)
assert_not_symtype("@@foo", :instance?)
assert_not_symtype("$foo", :instance?)
assert_not_symtype("foo=", :instance?)
assert_not_symtype("[foo]", :instance?)
end
def test_class
assert_symtype("@@foo", :class?)
assert_not_symtype("@@", :class?)
assert_not_symtype("@", :class?)
assert_not_symtype("@@1", :class?)
assert_not_symtype("foo", :class?)
assert_not_symtype("Foo", :class?)
assert_not_symtype("@foo", :class?)
assert_not_symtype("$foo", :class?)
assert_not_symtype("foo=", :class?)
assert_not_symtype("[foo]", :class?)
end
def test_attrset
assert_symtype("foo=", :attrset?)
assert_symtype("Foo=", :attrset?)
assert_symtype("@foo=", :attrset?)
assert_symtype("@@foo=", :attrset?)
assert_symtype("$foo=", :attrset?)
assert_not_symtype("0=", :attrset?)
assert_not_symtype("@=", :attrset?)
assert_not_symtype("@@=", :attrset?)
assert_not_symtype("foo", :attrset?)
assert_not_symtype("Foo", :attrset?)
assert_not_symtype("@foo", :attrset?)
assert_not_symtype("@@foo", :attrset?)
assert_not_symtype("$foo", :attrset?)
assert_not_symtype("[foo]", :attrset?)
assert_not_symtype("[foo]=", :attrset?)
assert_equal(:"foo=", Bug::Symbol.attrset("foo"))
assert_symtype(Bug::Symbol.attrset("foo"), :attrset?)
assert_equal(:"Foo=", Bug::Symbol.attrset("Foo"))
assert_symtype(Bug::Symbol.attrset("Foo"), :attrset?)
assert_equal(:"@foo=", Bug::Symbol.attrset("@foo"))
assert_symtype(Bug::Symbol.attrset("@foo"), :attrset?)
assert_equal(:"@@foo=", Bug::Symbol.attrset("@@foo"))
assert_symtype(Bug::Symbol.attrset("@@foo"), :attrset?)
assert_equal(:"$foo=", Bug::Symbol.attrset("$foo"))
assert_symtype(Bug::Symbol.attrset("$foo"), :attrset?)
assert_raise(NameError) {Bug::Symbol.attrset("[foo]")}
assert_equal(:[]=, Bug::Symbol.attrset(:[]))
end
end
end
|
