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
|
require 'test/unit'
$KCODE = 'none'
class TestHash < Test::Unit::TestCase
def test_hash
$x = {1=>2, 2=>4, 3=>6}
$y = {1, 2, 2, 4, 3, 6}
assert($x[1] == 2)
assert(begin
for k,v in $y
raise if k*2 != v
end
true
rescue
false
end)
assert($x.length == 3)
assert($x.has_key?(1))
assert($x.has_value?(4))
assert($x.values_at(2,3) == [4,6])
assert($x == {1=>2, 2=>4, 3=>6})
$z = $y.keys.join(":")
assert($z == "1:2:3")
$z = $y.values.join(":")
assert($z == "2:4:6")
assert($x == $y)
$y.shift
assert($y.length == 2)
$z = [1,2]
$y[$z] = 256
assert($y[$z] == 256)
$x = Hash.new(0)
$x[1] = 1
assert($x[1] == 1)
assert($x[2] == 0)
$x = Hash.new([])
assert($x[22] == [])
assert($x[22].equal?($x[22]))
$x = Hash.new{[]}
assert($x[22] == [])
assert(!$x[22].equal?($x[22]))
$x = Hash.new{|h,k| $z = k; h[k] = k*2}
$z = 0
assert($x[22] == 44)
assert($z == 22)
$z = 0
assert($x[22] == 44)
assert($z == 0)
$x.default = 5
assert($x[23] == 5)
$x = Hash.new
def $x.default(k)
$z = k
self[k] = k*2
end
$z = 0
assert($x[22] == 44)
assert($z == 22)
$z = 0
assert($x[22] == 44)
assert($z == 0)
end
end
|
