## # Hash ISO Test assert('Hash', '15.2.13') do assert_equal Class, Hash.class end assert('Hash#==', '15.2.13.4.1') do assert_true({ 'abc' => 'abc' } == { 'abc' => 'abc' }) assert_false({ 'abc' => 'abc' } == { 'cba' => 'cba' }) assert_false({ :a => 1 } == true) skip unless Object.const_defined?(:Float) assert_true({ :equal => 1 } == { :equal => 1.0 }) end assert('Hash#[]', '15.2.13.4.2') do a = { 'abc' => 'abc' } assert_equal 'abc', a['abc'] # Hash#[] should call #default (#3272) hash = {} def hash.default(k); self[k] = 1; end hash[:foo] += 1 assert_equal 2, hash[:foo] end assert('Hash#[]=', '15.2.13.4.3') do a = Hash.new a['abc'] = 'abc' assert_equal 'abc', a['abc'] end assert('Hash#clear', '15.2.13.4.4') do a = { 'abc' => 'abc' } a.clear assert_equal({ }, a) end assert('Hash#dup') do a = { 'a' => 1 } b = a.dup a['a'] = 2 assert_equal({'a' => 1}, b) c = Hash.new { |h, k| h[k] = k.upcase } d = c.dup assert_equal("FOO", d["foo"]) end assert('Hash#default', '15.2.13.4.5') do a = Hash.new b = Hash.new('abc') c = Hash.new {|s,k| s[k] = k} assert_nil a.default assert_equal 'abc', b.default assert_nil c.default assert_equal 'abc', c.default('abc') end assert('Hash#default=', '15.2.13.4.6') do a = { 'abc' => 'abc' } a.default = 'cba' assert_equal 'abc', a['abc'] assert_equal 'cba', a['notexist'] end assert('Hash#default_proc', '15.2.13.4.7') do a = Hash.new b = Hash.new {|s,k| s[k] = k + k} c = b[2] d = b['cat'] assert_nil a.default_proc assert_equal Proc, b.default_proc.class assert_equal 4, c assert_equal 'catcat', d end assert('Hash#delete', '15.2.13.4.8') do a = { 'abc' => 'ABC' } b = { 'abc' => 'ABC' } b_tmp_1 = false b_tmp_2 = false assert_equal 'ABC', a.delete('abc') b.delete('abc') do |k| b_tmp_1 = true end b.delete('abc') do |k| b_tmp_2 = true end assert_nil a.delete('cba') assert_false a.has_key?('abc') assert_false b_tmp_1 assert_true b_tmp_2 end assert('Hash#each', '15.2.13.4.9') do a = { 'abc_key' => 'abc_value' } key = nil value = nil a.each do |k,v| key = k value = v end assert_equal 'abc_key', key assert_equal 'abc_value', value end assert('Hash#each_key', '15.2.13.4.10') do a = { 'abc_key' => 'abc_value' } key = nil a.each_key do |k| key = k end assert_equal 'abc_key', key end assert('Hash#each_value', '15.2.13.4.11') do a = { 'abc_key' => 'abc_value' } value = nil a.each_value do |v| value = v end assert_equal 'abc_value', value end assert('Hash#empty?', '15.2.13.4.12') do a = { 'abc_key' => 'abc_value' } b = Hash.new assert_false a.empty? assert_true b.empty? end assert('Hash#has_key?', '15.2.13.4.13') do a = { 'abc_key' => 'abc_value' } b = Hash.new assert_true a.has_key?('abc_key') assert_false b.has_key?('cba') end assert('Hash#has_value?', '15.2.13.4.14') do a = { 'abc_key' => 'abc_value' } b = Hash.new assert_true a.has_value?('abc_value') assert_false b.has_value?('cba') end assert('Hash#include?', '15.2.13.4.15') do a = { 'abc_key' => 'abc_value' } b = Hash.new assert_true a.include?('abc_key') assert_false b.include?('cba') end assert('Hash#initialize', '15.2.13.4.16') do # Testing initialize by new. h = Hash.new h2 = Hash.new(:not_found) assert_true h.is_a? Hash assert_equal({ }, h) assert_nil h["hello"] assert_equal :not_found, h2["hello"] end assert('Hash#initialize_copy', '15.2.13.4.17') do a = { 'abc_key' => 'abc_value' } b = Hash.new.initialize_copy(a) assert_equal({ 'abc_key' => 'abc_value' }, b) end assert('Hash#key?', '15.2.13.4.18') do a = { 'abc_key' => 'abc_value' } b = Hash.new assert_true a.key?('abc_key') assert_false b.key?('cba') end assert('Hash#keys', '15.2.13.4.19') do a = { 'abc_key' => 'abc_value' } assert_equal ['abc_key'], a.keys end assert('Hash#length', '15.2.13.4.20') do a = { 'abc_key' => 'abc_value' } b = Hash.new assert_equal 1, a.length assert_equal 0, b.length end assert('Hash#member?', '15.2.13.4.21') do a = { 'abc_key' => 'abc_value' } b = Hash.new assert_true a.member?('abc_key') assert_false b.member?('cba') end assert('Hash#merge', '15.2.13.4.22') do a = { 'abc_key' => 'abc_value', 'cba_key' => 'cba_value' } b = { 'cba_key' => 'XXX', 'xyz_key' => 'xyz_value' } result_1 = a.merge b result_2 = a.merge(b) do |key, original, new| original end assert_equal({'abc_key' => 'abc_value', 'cba_key' => 'XXX', 'xyz_key' => 'xyz_value' }, result_1) assert_equal({'abc_key' => 'abc_value', 'cba_key' => 'cba_value', 'xyz_key' => 'xyz_value' }, result_2) assert_raise(TypeError) do { 'abc_key' => 'abc_value' }.merge "a" end end assert('Hash#replace', '15.2.13.4.23') do a = { 'abc_key' => 'abc_value' } b = Hash.new.replace(a) assert_equal({ 'abc_key' => 'abc_value' }, b) a = Hash.new(42) b = {} b.replace(a) assert_equal(42, b[1]) a = Hash.new{|h,x| x} b.replace(a) assert_equal(127, b[127]) assert_raise(TypeError) do { 'abc_key' => 'abc_value' }.replace "a" end end assert('Hash#shift', '15.2.13.4.24') do a = { 'abc_key' => 'abc_value', 'cba_key' => 'cba_value' } b = a.shift assert_equal Array, b.class assert_equal 2, b.size assert_equal 1, a.size b = a.shift assert_equal Array, b.class assert_equal 2, b.size assert_equal 0, a.size end assert('Hash#size', '15.2.13.4.25') do a = { 'abc_key' => 'abc_value' } b = Hash.new assert_equal 1, a.size assert_equal 0, b.size end assert('Hash#store', '15.2.13.4.26') do a = Hash.new a.store('abc', 'abc') assert_equal 'abc', a['abc'] end assert('Hash#value?', '15.2.13.4.27') do a = { 'abc_key' => 'abc_value' } b = Hash.new assert_true a.value?('abc_value') assert_false b.value?('cba') end assert('Hash#values', '15.2.13.4.28') do a = { 'abc_key' => 'abc_value' } assert_equal ['abc_value'], a.values end # Not ISO specified assert('Hash#eql?') do a = { 'a' => 1, 'b' => 2, 'c' => 3 } b = { 'a' => 1, 'b' => 2, 'c' => 3 } c = { 'a' => 1.0, 'b' => 2, 'c' => 3 } assert_true(a.eql?(b)) assert_false(a.eql?(c)) assert_false(a.eql?(true)) end assert('Hash#reject') do h = {:one => 1, :two => 2, :three => 3, :four => 4} ret = h.reject do |k,v| v % 2 == 0 end assert_equal({:one => 1, :three => 3}, ret) assert_equal({:one => 1, :two => 2, :three => 3, :four => 4}, h) end assert('Hash#reject!') do h = {:one => 1, :two => 2, :three => 3, :four => 4} ret = h.reject! do |k,v| v % 2 == 0 end assert_equal({:one => 1, :three => 3}, ret) assert_equal({:one => 1, :three => 3}, h) end assert('Hash#select') do h = {:one => 1, :two => 2, :three => 3, :four => 4} ret = h.select do |k,v| v % 2 == 0 end assert_equal({:two => 2, :four => 4}, ret) assert_equal({:one => 1, :two => 2, :three => 3, :four => 4}, h) end assert('Hash#select!') do h = {:one => 1, :two => 2, :three => 3, :four => 4} ret = h.select! do |k,v| v % 2 == 0 end assert_equal({:two => 2, :four => 4}, ret) assert_equal({:two => 2, :four => 4}, h) end # Not ISO specified assert('Hash#inspect') do h = { "c" => 300, "a" => 100, "d" => 400, "c" => 300 } ret = h.to_s assert_include ret, '"c"=>300' assert_include ret, '"a"=>100' assert_include ret, '"d"=>400' end assert('Hash#rehash') do h = {[:a] => "b"} # hash key modified h.keys[0][0] = :b # h[[:b]] => nil h.rehash assert_equal("b", h[[:b]]) end assert('Hash#freeze') do h = {}.freeze assert_raise(FrozenError) do h[:a] = 'b' end end