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
|
require 'test/unit'
require '-test-/debug'
class SampleClassForTestProfileFrames
class Sample2
def baz(block)
instance_eval "def zab(block) block.call end"
[self, zab(block)]
end
end
def self.bar(block)
Sample2.new.baz(block)
end
def foo(block)
self.class.bar(block)
end
end
class TestProfileFrames < Test::Unit::TestCase
def test_profile_frames
obj, frames = Fiber.new{
Fiber.yield SampleClassForTestProfileFrames.new.foo(lambda{ Bug::Debug.profile_frames(0, 10) })
}.resume
labels = [
"block (2 levels) in test_profile_frames",
"zab",
"baz",
"bar",
"foo",
"block in test_profile_frames",
]
base_labels = [
"test_profile_frames",
"zab",
"baz",
"bar",
"foo",
"test_profile_frames",
]
full_labels = [
"block (2 levels) in TestProfileFrames#test_profile_frames",
"#{obj.inspect}.zab",
"SampleClassForTestProfileFrames::Sample2#baz",
"SampleClassForTestProfileFrames.bar",
"SampleClassForTestProfileFrames#foo",
"block in TestProfileFrames#test_profile_frames",
]
classes = [
TestProfileFrames,
obj,
SampleClassForTestProfileFrames::Sample2,
SampleClassForTestProfileFrames, # singleton method
SampleClassForTestProfileFrames,
TestProfileFrames,
]
singleton_method_p = [
false, true, false, true, false, false, false,
]
method_names = [
"test_profile_frames",
"zab",
"baz",
"bar",
"foo",
"test_profile_frames",
]
qualified_method_names = [
"TestProfileFrames#test_profile_frames",
"#{obj.inspect}.zab",
"SampleClassForTestProfileFrames::Sample2#baz",
"SampleClassForTestProfileFrames.bar",
"SampleClassForTestProfileFrames#foo",
"TestProfileFrames#test_profile_frames",
]
paths = [ file=__FILE__, "(eval)", file, file, file, file ]
absolute_paths = [ file, nil, file, file, file, file ]
# pp frames
assert_equal(labels.size, frames.size)
frames.each.with_index{|(path, absolute_path, label, base_label, full_label, first_lineno,
classpath, singleton_p, method_name, qualified_method_name), i|
err_msg = "#{i}th frame"
assert_equal(paths[i], path, err_msg)
assert_equal(absolute_paths[i], absolute_path, err_msg)
assert_equal(labels[i], label, err_msg)
assert_equal(base_labels[i], base_label, err_msg)
assert_equal(singleton_method_p[i], singleton_p, err_msg)
assert_equal(method_names[i], method_name, err_msg)
assert_match(qualified_method_names[i], qualified_method_name, err_msg)
assert_match(full_labels[i], full_label, err_msg)
assert_match(classes[i].inspect, classpath, err_msg)
if label == method_name
c = classes[i]
m = singleton_p ? c.method(method_name) : c.instance_method(method_name)
assert_equal(m.source_location[1], first_lineno, err_msg)
end
}
end
end
|
