Add debug code to GC compaction test

This test is flaky on some CI systems.
This commit is contained in:
Peter Zhu 2023-05-31 09:22:52 -04:00
Родитель e502600fb9
Коммит 1ac17693de
1 изменённых файлов: 4 добавлений и 2 удалений

Просмотреть файл

@ -422,19 +422,21 @@ class TestGCCompact < Test::Unit::TestCase
# AR and ST hashes are in the same size pool on 32 bit
omit unless RbConfig::SIZEOF["uint64_t"] <= RbConfig::SIZEOF["void*"]
assert_separately(%w[-robjspace], "#{<<~"begin;"}\n#{<<~"end;"}", timeout: 10, signal: :SEGV)
assert_separately(%w[-robjspace], "#{<<~'begin;'}\n#{<<~'end;'}", timeout: 10, signal: :SEGV)
begin;
HASH_COUNT = 500
GC.verify_compaction_references(expand_heap: true, toward: :empty)
before_read_barrier_faults = GC.stat(:read_barrier_faults)
base_hash = { a: 1, b: 2, c: 3, d: 4, e: 5, f: 6, g: 7, h: 8 }
ary = HASH_COUNT.times.map { base_hash.dup }
ary.each { |h| h[:i] = 9 }
stats = GC.verify_compaction_references(expand_heap: true, toward: :empty)
assert_operator(stats[:moved_down][:T_HASH], :>=, HASH_COUNT)
assert_operator(stats[:moved_down][:T_HASH], :>=, 500, "read barrier faults: before #{before_read_barrier_faults}, after #{GC.stat(:read_barrier_faults)}")
end;
end