summaryrefslogtreecommitdiff
path: root/test/-ext-/st/test_numhash.rb
blob: 97c3a755bbcd0ffca1ae27d8c04a7ab08f01c96e (plain)
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