2003-09-04 16:18:59 +00:00
|
|
|
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}
|
|
|
|
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($x[1], 2)
|
2003-09-04 16:18:59 +00:00
|
|
|
|
|
|
|
assert(begin
|
|
|
|
for k,v in $y
|
|
|
|
raise if k*2 != v
|
|
|
|
end
|
|
|
|
true
|
|
|
|
rescue
|
|
|
|
false
|
|
|
|
end)
|
|
|
|
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($x.length, 3)
|
2003-09-04 16:18:59 +00:00
|
|
|
assert($x.has_key?(1))
|
|
|
|
assert($x.has_value?(4))
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($x.values_at(2,3), [4,6])
|
|
|
|
assert_equal($x, {1=>2, 2=>4, 3=>6})
|
2003-09-04 16:18:59 +00:00
|
|
|
|
|
|
|
$z = $y.keys.join(":")
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($z, "1:2:3")
|
2003-09-04 16:18:59 +00:00
|
|
|
|
|
|
|
$z = $y.values.join(":")
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($z, "2:4:6")
|
|
|
|
assert_equal($x, $y)
|
2003-09-04 16:18:59 +00:00
|
|
|
|
|
|
|
$y.shift
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($y.length, 2)
|
2003-09-04 16:18:59 +00:00
|
|
|
|
|
|
|
$z = [1,2]
|
|
|
|
$y[$z] = 256
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($y[$z], 256)
|
2003-09-04 16:18:59 +00:00
|
|
|
|
|
|
|
$x = Hash.new(0)
|
|
|
|
$x[1] = 1
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($x[1], 1)
|
|
|
|
assert_equal($x[2], 0)
|
2003-09-04 16:18:59 +00:00
|
|
|
|
|
|
|
$x = Hash.new([])
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($x[22], [])
|
2003-09-04 16:18:59 +00:00
|
|
|
assert($x[22].equal?($x[22]))
|
|
|
|
|
|
|
|
$x = Hash.new{[]}
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($x[22], [])
|
2003-09-04 16:18:59 +00:00
|
|
|
assert(!$x[22].equal?($x[22]))
|
|
|
|
|
|
|
|
$x = Hash.new{|h,k| $z = k; h[k] = k*2}
|
|
|
|
$z = 0
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($x[22], 44)
|
|
|
|
assert_equal($z, 22)
|
2003-09-04 16:18:59 +00:00
|
|
|
$z = 0
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($x[22], 44)
|
|
|
|
assert_equal($z, 0)
|
2003-09-04 16:18:59 +00:00
|
|
|
$x.default = 5
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($x[23], 5)
|
2003-09-04 16:18:59 +00:00
|
|
|
|
|
|
|
$x = Hash.new
|
|
|
|
def $x.default(k)
|
|
|
|
$z = k
|
|
|
|
self[k] = k*2
|
|
|
|
end
|
|
|
|
$z = 0
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($x[22], 44)
|
|
|
|
assert_equal($z, 22)
|
2003-09-04 16:18:59 +00:00
|
|
|
$z = 0
|
2003-09-05 11:28:27 +00:00
|
|
|
assert_equal($x[22], 44)
|
|
|
|
assert_equal($z, 0)
|
2003-09-04 16:18:59 +00:00
|
|
|
end
|
|
|
|
end
|