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
|
require 'test/unit'
require '-test-/tracepoint'
class TestTracepointObj < Test::Unit::TestCase
def test_not_available_from_ruby
assert_raise ArgumentError do
TracePoint.trace(:obj_new){}
end
end
def test_tracks_objspace_events
result = Bug.tracepoint_track_objspace_events{
99
'abc'
_="foobar"
Object.new
nil
}
newobj_count, free_count, gc_start_count, gc_end_mark_count, gc_end_sweep_count, *newobjs = *result
assert_equal 2, newobj_count
assert_equal 2, newobjs.size
assert_equal 'foobar', newobjs[0]
assert_equal Object, newobjs[1].class
assert_operator free_count, :>=, 0
assert_operator gc_start_count, :==, gc_end_mark_count
assert_operator gc_start_count, :>=, gc_end_sweep_count
end
def test_tracks_objspace_count
stat1 = {}
stat2 = {}
GC.disable
GC.stat(stat1)
result = Bug.tracepoint_track_objspace_events{
GC.enable
1_000_000.times{''}
GC.disable
}
GC.stat(stat2)
GC.enable
newobj_count, free_count, gc_start_count, gc_end_mark_count, gc_end_sweep_count, *newobjs = *result
assert_operator stat2[:total_allocated_objects] - stat1[:total_allocated_objects], :>=, newobj_count
assert_operator 1_000_000, :<=, newobj_count
assert_operator stat2[:total_freed_objects] + stat2[:heap_final_slots] - stat1[:total_freed_objects], :>=, free_count
assert_operator stat2[:count] - stat1[:count], :==, gc_start_count
assert_operator gc_start_count, :==, gc_end_mark_count
assert_operator gc_start_count, :>=, gc_end_sweep_count
assert_operator stat2[:count] - stat1[:count] - 1, :<=, gc_end_sweep_count
end
def test_tracepoint_specify_normal_and_internal_events
assert_raise(TypeError){ Bug.tracepoint_specify_normal_and_internal_events }
end
def test_after_gc_start_hook_with_GC_stress
bug8492 = '[ruby-dev:47400] [Bug #8492]: infinite after_gc_start_hook reentrance'
assert_nothing_raised(Timeout::Error, bug8492) do
assert_in_out_err(%w[-r-test-/tracepoint], <<-'end;', /\A[1-9]/, timeout: 2)
stress, GC.stress = GC.stress, false
count = 0
Bug.after_gc_start_hook = proc {count += 1}
begin
GC.stress = true
3.times {Object.new}
ensure
GC.stress = stress
Bug.after_gc_start_hook = nil
end
puts count
end;
end
end
end
|
