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
|
# frozen_string_literal: false
require 'test/unit'
require "-test-/st/numhash"
class Bug::StNumHash
class Test_NumHash < Test::Unit::TestCase
def setup
@tbl = Bug::StNumHash.new
5.times {|i| @tbl[i] = i}
end
def test_check
keys = []
@tbl.each do |k, v, t|
keys << k
t[5] = 5 if k == 3
true
end
assert_equal([*0..5], keys)
end
def test_update
assert_equal(true, @tbl.update(0) {@tbl[5] = :x})
assert_equal(:x, @tbl[0])
assert_equal(:x, @tbl[5])
end
def test_size_after_delete_safe
10.downto(1) do |up|
tbl = Bug::StNumHash.new
1.upto(up){|i| tbl[i] = i}
assert_equal(1, tbl.delete_safe(1))
assert_equal(up - 1, tbl.size, "delete_safe doesn't change size from #{up} to #{up-1}")
end
end
def test_delete_safe_on_iteration
10.downto(1) do |up|
tbl = Bug::StNumHash.new
1.upto(up){|i| tbl[i] = i}
assert_nothing_raised("delete_safe forces iteration to fail with size #{up}") do
tbl.each do |k, v, t|
assert_equal k, t.delete_safe(k)
true
end
end
end
end
end
end
|
