require 'test/unit'
require 'rc_rest/uri_stub'
require 'yahoo/geocode'

class Yahoo::TestGeocode < Test::Unit::TestCase

  def setup
    URI::HTTP.responses = []
    URI::HTTP.uris = []

    @g = Yahoo::Geocode.new 'APP_ID'
    @location = '701 First Street, Sunnyvale, CA'
  end

  def test_locate
    URI::HTTP.responses << <<-EOF.strip
<?xml version="1.0"?>
<ResultSet xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="urn:yahoo:maps" xsi:schemaLocation="urn:yahoo:maps http://api.local.yahoo.com/MapsService/V1/GeocodeResponse.xsd"><Result precision="address" warning="The exact location could not be found, here is the closest match: 701 First Ave, Sunnyvale, CA 94089"><Latitude>37.416384</Latitude><Longitude>-122.024853</Longitude><Address>701 FIRST AVE</Address><City>SUNNYVALE</City><State>CA</State><Zip>94089-1019</Zip><Country>US</Country></Result></ResultSet>
<!-- ws02.search.scd.yahoo.com compressed/chunked Thu Jun  8 15:20:46 PDT 2006 -->
    EOF

    assert_equal [37.416384, -122.024853],
                 @g.locate('701 First Street, Sunnyvale, CA').first.coordinates
    assert_equal true, URI::HTTP.responses.empty?
    assert_equal 1, URI::HTTP.uris.length
    assert_equal 'http://api.local.yahoo.com/MapsService/V1/geocode?appid=APP_ID&location=701%20First%20Street,%20Sunnyvale,%20CA&output=xml',
                 URI::HTTP.uris.first
  end

  def test_locate_bad_address
    URI::HTTP.responses << <<-EOF.strip
<?xml version="1.0" encoding="UTF-8"?>	<Error xmlns="urn:yahoo:api">
		The following errors were detected:
		<Message>unable to parse location</Message></Error>
<!-- ws02.search.scd.yahoo.com uncompressed/chunked Thu Jun  8 15:53:20 PDT 2006 -->
    EOF

    assert_raise Yahoo::Error do
      @g.locate 'yucksthoeusthaoeusnhtaosu'
    end

    assert_equal true, URI::HTTP.responses.empty?
    assert_equal 1, URI::HTTP.uris.length
    assert_equal 'http://api.local.yahoo.com/MapsService/V1/geocode?appid=APP_ID&location=yucksthoeusthaoeusnhtaosu&output=xml',
                 URI::HTTP.uris.first
  end

end

class Yahoo::Geocode::TestLocation < Test::Unit::TestCase

  def test_coordinates
    loc = Yahoo::Geocode::Location.new
    loc.latitude = Math::E
    loc.longitude = Math::PI

    assert_equal [Math::E, Math::PI], loc.coordinates
  end

end