#  _____         _
# |_   _|__  ___| |_
#   | |/ _ \/ __| __|
#   | |  __/\__ \ |_
#   |_|\___||___/\__|
#
# for lib/nano/hash/graph.rb
#
# Extracted Fri Oct 28 14:20:18 EDT 2005
# Unit Tools Reap Test Extractor
#

require 'nano/hash/graph.rb'


  require 'test/unit'

  class TCHash < Test::Unit::TestCase

    def test_graph
      h  = {:a=>1,:b=>2,:c=>3}
      h.graph!{ |k,v| [v, v*v] }
      assert_equal( {1=>1, 2=>4, 3=>9}, h )
    end

  end