norman-graticule 0.2.7

data/lib/graticule/geocoder.rb

@@ -0,0 +1,21 @@
+
+module Graticule
+  
+  # Get a geocoder for the given service
+  #
+  #   geocoder = Graticule.service(:google).new "api_key"
+  #
+  # See the documentation for your specific geocoder for more information
+  #
+  def self.service(name)
+    Geocoder.const_get name.to_s.camelize
+  end
+  
+  # Base error class
+  class Error < RuntimeError; end
+  class CredentialsError < Error; end
+
+  # Raised when you try to locate an invalid address.
+  class AddressError < Error; end
+
+end

data/lib/graticule/location.rb

@@ -0,0 +1,57 @@
+module Graticule
+  
+  # A geographic location
+  class Location
+    attr_accessor :latitude, :longitude, :street, :locality, :region, :postal_code, :country, :precision, :warning
+    alias_method :city, :locality
+    alias_method :state, :region
+    alias_method :zip, :postal_code
+    
+    def initialize(attrs = {})
+      attrs.each do |key,value|
+        instance_variable_set "@#{key}", value
+      end
+      self.precision ||= :unknown
+    end
+    
+    def attributes
+      [:latitude, :longitude, :street, :locality, :region, :postal_code, :country].inject({}) do |result,attr|
+        result[attr] = self.send(attr) unless self.send(attr).blank?
+        result
+      end
+    end
+    
+    # Returns an Array with latitude and longitude.
+    def coordinates
+      [latitude, longitude]
+    end
+    
+    def ==(other)
+      other.respond_to?(:attributes) ? attributes == other.attributes : false
+    end
+    
+    # Calculate the distance to another location.  See the various Distance formulas
+    # for more information
+    def distance_to(destination, options = {})
+      options = {:formula => :haversine, :units => :miles}.merge(options)
+      "Graticule::Distance::#{options[:formula].to_s.titleize}".constantize.distance(self, destination, options[:units])
+    end
+    
+    # Where would I be if I dug through the center of the earth?
+    def antipode
+      Location.new :latitude => -latitude, :longitude => longitude + (longitude >= 0 ? -180 : 180)
+    end
+    alias_method :antipodal_location, :antipode
+    
+    def to_s(options = {})
+      options = {:coordinates => false, :country => true}.merge(options)
+      result = ""
+      result << "#{street}\n" if street
+      result << [locality, [region, postal_code].compact.join(" ")].compact.join(", ")
+      result << " #{country}" if options[:country] && country
+      result << "\nlatitude: #{latitude}, longitude: #{longitude}" if options[:coordinates] && [latitude, longitude].any?
+      result
+    end
+    
+  end
+end

data/lib/graticule/version.rb

@@ -0,0 +1,9 @@
+module Graticule #:nodoc:
+  module Version #:nodoc:
+    MAJOR = 0
+    MINOR = 2
+    TINY = 7
+  
+    STRING = [MAJOR, MINOR, TINY].join('.')
+  end
+end

data/lib/graticule.rb

@@ -0,0 +1,24 @@
+$:.unshift(File.dirname(__FILE__))
+
+require 'active_support'
+
+require 'graticule/version'
+require 'graticule/location'
+require 'graticule/geocoder'
+require 'graticule/geocoder/base'
+require 'graticule/geocoder/bogus'
+require 'graticule/geocoder/rest'
+require 'graticule/geocoder/google'
+require 'graticule/geocoder/host_ip'
+require 'graticule/geocoder/map_quest'
+require 'graticule/geocoder/multi'
+require 'graticule/geocoder/yahoo'
+require 'graticule/geocoder/geocoder_ca'
+require 'graticule/geocoder/geocoder_us'
+require 'graticule/geocoder/local_search_maps'
+require 'graticule/geocoder/meta_carta'
+require 'graticule/geocoder/postcode_anywhere'
+require 'graticule/distance'
+require 'graticule/distance/haversine'
+require 'graticule/distance/spherical'
+require 'graticule/distance/vincenty'

data/test/config.yml.default

@@ -0,0 +1,36 @@
+google:
+  key: PUT YOUR KEY HERE
+  responses:
+    success.xml: http://maps.google.com/maps/geo?q=1600+amphitheatre+mtn+view+ca&output=xml&key=:key
+    badkey.xml: http://maps.google.com/maps/geo?q=1600+amphitheatre+mtn+view+ca&output=xml&key=this_is_a_bad_key
+    missing_address.xml: http://maps.google.com/maps/geo?output=xml&key=:key
+    unavailable.xml: http://maps.google.com/maps/geo?q=42-44+Hanway+Street,+London&output=xml&key=:key
+    unknown_address.xml: http://maps.google.com/maps/geo?q=1600&output=xml&key=:key
+    partial.xml: http://maps.google.com/maps/geo?q=sf+ca&output=xml&key=:key
+    #limit.xml: no way to reproduce this  
+    #server_error.xml: no way to reproduce this
+geocoder_us:
+  responses:
+    success.xml: http://rpc.geocoder.us/service/rest/geocode?address=1600%20Pennsylvania%20Ave%20NW,%20Washington%20DC
+    unknown.xml: http://rpc.geocoder.us/service/rest/geocode?address=1600
+host_ip:
+  responses:
+    private.txt: http://api.hostip.info/get_html.php?ip=192.168.0.1&position=true
+    success.txt: http://api.hostip.info/get_html.php?ip=64.233.167.99&position=true
+    unknown.txt: http://api.hostip.info/get_html.php?ip=254.254.254.254&position=true
+local_search_maps:
+  responses:
+    success.txt: http://geo.localsearchmaps.com/?street=48+Leicester+Square&city=London&country=UK
+    empty.txt: http://geo.localsearchmaps.com/
+    not_found.txt: http://geo.localsearchmaps.com/?street=48
+meta_carta:
+  responses:
+    bad_address.xml: http://labs.metacarta.com/GeoParser/?q=aoeueou&output=locations
+    # doesn't work
+    #multiple.xml: http://labs.metacarta.com/GeoParser/?q=seattle&output=locations
+    success.xml: http://labs.metacarta.com/GeoParser/?q=baghdad&output=locations
+yahoo:
+  key: PUT YOUR KEY HERE
+  responses:
+    success.xml: http://api.local.yahoo.com/MapsService/V1/geocode?location=701%20First%20Street,%20Sunnyvale,%20CA&output=xml&appid=:key
+    unknown_address.xml: http://api.local.yahoo.com/MapsService/V1/geocode?location=thisprobablycantbefound&output=xml&appid=:key

data/test/fixtures/responses/geocoder_us/success.xml

@@ -0,0 +1,18 @@
+<?xml version="1.0"?>
+<rdf:RDF
+  xmlns:dc="http://purl.org/dc/elements/1.1/"
+  xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#"
+  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+>
+
+<geo:Point rdf:nodeID="aid15626963">
+    
+    <dc:description>1600 Pennsylvania Ave NW, Washington DC 20502</dc:description>
+    <geo:long>-77.037684</geo:long>
+    <geo:lat>38.898748</geo:lat>
+
+</geo:Point>
+
+
+</rdf:RDF>
+

data/test/fixtures/responses/geocoder_us/unknown.xml

@@ -0,0 +1 @@
+couldn't find this address! sorry

data/test/fixtures/responses/google/badkey.xml

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="UTF-8"?><kml xmlns="http://earth.google.com/kml/2.1"><Response><name>1600 amphitheatre mtn view ca</name><Status><code>610</code><request>geocode</request></Status></Response></kml>

data/test/fixtures/responses/google/limit.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<kml xmlns="http://earth.google.com/kml/2.0">
+  <Response>
+    <name>1600 Amphitheater Pkwy, Mountain View, CA</name>
+    <Status>
+      <code>620</code>
+      <request>geocode</request>
+    </Status>
+  </Response>
+</kml>

data/test/fixtures/responses/google/missing_address.xml

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="UTF-8"?><kml xmlns="http://earth.google.com/kml/2.1"><Response><name></name><Status><code>601</code><request>geocode</request></Status></Response></kml>

data/test/fixtures/responses/google/only_coordinates.xml

@@ -0,0 +1 @@
+<?xml version='1.0' encoding='UTF-8'?><kml xmlns='http://earth.google.com/kml/2.0'><Response><name>15-17 </name><Status><code>200</code><request>geocode</request></Status><Placemark id='p1'><Point><coordinates>-17.000000,15.000000,0</coordinates></Point></Placemark></Response></kml>

data/test/fixtures/responses/google/partial.xml

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="UTF-8"?><kml xmlns="http://earth.google.com/kml/2.1"><Response><name>sf ca</name><Status><code>200</code><request>geocode</request></Status><Placemark><address>San Francisco, CA, USA</address><AddressDetails Accuracy="4" xmlns="urn:oasis:names:tc:ciq:xsdschema:xAL:2.0"><Country><CountryNameCode>US</CountryNameCode><AdministrativeArea><AdministrativeAreaName>CA</AdministrativeAreaName><Locality><LocalityName>San Francisco</LocalityName></Locality></AdministrativeArea></Country></AddressDetails><Point><coordinates>-122.418333,37.775000,0</coordinates></Point></Placemark></Response></kml>

data/test/fixtures/responses/google/server_error.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<kml xmlns="http://earth.google.com/kml/2.0">
+  <Response>
+    <name>1600 Amphitheater Pkwy, Mountain View, CA</name>
+    <Status>
+      <code>500</code>
+      <request>geocode</request>
+    </Status>
+  </Response>
+</kml>

data/test/fixtures/responses/google/success.xml

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="UTF-8"?><kml xmlns="http://earth.google.com/kml/2.1"><Response><name>1600 amphitheatre mtn view ca</name><Status><code>200</code><request>geocode</request></Status><Placemark><address>1600 Amphitheatre Pkwy, Mountain View, CA 94043, USA</address><AddressDetails Accuracy="8" xmlns="urn:oasis:names:tc:ciq:xsdschema:xAL:2.0"><Country><CountryNameCode>US</CountryNameCode><AdministrativeArea><AdministrativeAreaName>CA</AdministrativeAreaName><SubAdministrativeArea><SubAdministrativeAreaName>Santa Clara</SubAdministrativeAreaName><Locality><LocalityName>Mountain View</LocalityName><Thoroughfare><ThoroughfareName>1600 Amphitheatre Pkwy</ThoroughfareName></Thoroughfare><PostalCode><PostalCodeNumber>94043</PostalCodeNumber></PostalCode></Locality></SubAdministrativeArea></AdministrativeArea></Country></AddressDetails><Point><coordinates>-122.083739,37.423021,0</coordinates></Point></Placemark></Response></kml>

data/test/fixtures/responses/google/unavailable.xml

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="UTF-8"?><kml xmlns="http://earth.google.com/kml/2.1"><Response><name>42-44 Hanway Street, London</name><Status><code>602</code><request>geocode</request></Status></Response></kml>

data/test/fixtures/responses/google/unknown_address.xml

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="UTF-8"?><kml xmlns="http://earth.google.com/kml/2.1"><Response><name>1600</name><Status><code>602</code><request>geocode</request></Status></Response></kml>

data/test/fixtures/responses/host_ip/private.txt

@@ -0,0 +1,4 @@
+Country: (Private Address) (XX)
+City: (Private Address)
+Latitude: 
+Longitude: 

data/test/fixtures/responses/host_ip/success.txt

@@ -0,0 +1,4 @@
+Country: UNITED STATES (US)
+City: Mountain View, CA
+Latitude: 37.402
+Longitude: -122.078

data/test/fixtures/responses/host_ip/unknown.txt

@@ -0,0 +1,4 @@
+Country: (Unknown Country?) (XX)
+City: (Unknown City?)
+Latitude: 
+Longitude: 

data/test/fixtures/responses/local_search_maps/empty.txt

@@ -0,0 +1 @@
+alert('Please provide a location');

data/test/fixtures/responses/local_search_maps/not_found.txt

@@ -0,0 +1 @@
+alert('location not found');

data/test/fixtures/responses/local_search_maps/success.txt

@@ -0,0 +1 @@
+map.centerAndZoom(new GPoint(-0.130427, 51.510036), 4);

data/test/fixtures/responses/meta_carta/bad_address.xml

@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+
+<!DOCTYPE Locations SYSTEM "Locations.dtd">
+
+<Locations
+	xmlns:gml="http://www.opengis.net/gml"
+	CreatedBy="MetaCarta GeoParser v3.7.0-labs"
+	CreatedOn="Wed Apr 25 22:12:33 2007"
+	ConvertedFromBinaryFormat="0"
+	InputByteLength="0">
+	<ViewBox>
+
+		<gml:Box srsName="epsg:4326">
+			<gml:coordinates>-180.000000,-90.000000 180.000000,90.000000</gml:coordinates>
+		</gml:Box>
+	</ViewBox>
+</Locations>

data/test/fixtures/responses/meta_carta/multiple.xml

@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE Locations SYSTEM "Locations.dtd">
+<Locations xmlns:gml="http://www.opengis.net/gml" CreatedBy="MetaCarta GeoParser v3.5.0-labs-alpha" CreatedOn="Sat Jun 17 02:14:05 2006" ConvertedFromBinaryFormat="False" InputByteLength="1">
+  <ViewBox>
+    <gml:Box srsName="epsg:4326">
+      <gml:coordinates>43.800000,-126.133333 51.406390,-118.530830</gml:coordinates>
+    </gml:Box>
+  </ViewBox>
+  <Location Name="Seattle" Type="PPL" Population="563374" Hierarchy="United States/Washington/King/Seattle">
+    <ViewBox>
+      <gml:Box srsName="epsg:4326">
+        <gml:coordinates>43.806390,-126.130830 51.406390,-118.530830</gml:coordinates>
+      </gml:Box>
+    </ViewBox>
+    <Centroid>
+      <gml:Point>
+        <gml:coordinates>-122.330830000000006,47.606389999999998</gml:coordinates>
+      </gml:Point>
+    </Centroid>
+  </Location>
+  <Location Name="Seattle" Type="PRT" Population="-1" Hierarchy="United States/Seattle">
+    <ViewBox>
+      <gml:Box srsName="epsg:4326">
+        <gml:coordinates>43.800000,-126.133333 51.400000,-118.533333</gml:coordinates>
+      </gml:Box>
+    </ViewBox>
+    <Centroid>
+      <gml:Point>
+        <gml:coordinates>-122.333332999999996,47.6</gml:coordinates>
+      </gml:Point>
+    </Centroid>
+  </Location>
+</Locations>

data/test/fixtures/responses/meta_carta/success.xml

@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+
+<!DOCTYPE Locations SYSTEM "Locations.dtd">
+
+<Locations
+	xmlns:gml="http://www.opengis.net/gml"
+	CreatedBy="MetaCarta GeoParser v3.7.0-labs"
+	CreatedOn="Wed Apr 25 22:12:33 2007"
+	ConvertedFromBinaryFormat="0"
+	InputByteLength="0">
+	<ViewBox>
+
+		<gml:Box srsName="epsg:4326">
+			<gml:coordinates>43.593900,32.538600 45.193900,34.138600</gml:coordinates>
+		</gml:Box>
+	</ViewBox>
+<Location
+
+	Name="Baghdad"
+	Type=""
+	Population="-1"
+	Hierarchy="">
+	<ViewBox>
+		<gml:Box srsName="epsg:4326">
+			<gml:coordinates>43.593900,32.538600 45.193900,34.138600</gml:coordinates>
+		</gml:Box>
+	</ViewBox>
+	<RemainingQuery></RemainingQuery>
+	<Confidence>0.566875</Confidence>	<Centroid><gml:Point><gml:coordinates>44.393900000000002,33.3386</gml:coordinates></gml:Point></Centroid>
+</Location>
+</Locations>

data/test/fixtures/responses/postcode_anywhere/badkey.xml

@@ -0,0 +1,9 @@
+<PostcodeAnywhere Server="WS12" Version="3.0" Date="12/03/2007 15:43:33" Duration="0.016s">
+  <Schema Items="2">
+    <Field Name="error_number"/>
+    <Field Name="message"/>
+  </Schema>
+  <Data Items="1">
+    <Item error_number="6" message="License key was not recognised"/>
+  </Data>
+</PostcodeAnywhere>

data/test/fixtures/responses/postcode_anywhere/canada.xml

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<PostcodeAnywhere Server="WS12" Version="3.0" Date="17/03/2007 19:01:05" Duration="1.109s">
+  <Schema Items="8">
+    <Field Name="line1"/>
+    <Field Name="line2"/>
+    <Field Name="city"/>
+    <Field Name="state"/>
+    <Field Name="postal_code"/>
+    <Field Name="country"/>
+    <Field Name="longitude"/>
+    <Field Name="latitude"/>
+  </Schema>
+  <Data Items="1">
+    <Item line1="204 Campbell Ave" city="Revelstoke" state="BC" postal_code="V0E" country="Canada" longitude="-118.196970002204" latitude="50.9997350418267"/>
+  </Data>
+</PostcodeAnywhere>

data/test/fixtures/responses/postcode_anywhere/empty.xml

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<PostcodeAnywhere Version="3.0" Server="WS03" Date="17/03/2007 19:26:33" Duration="0.016s">
+  <Schema Items="10">
+    <Field Name="id"/>
+    <Field Name="seq"/>
+    <Field Name="location"/>
+    <Field Name="grid_east_m"/>
+    <Field Name="grid_north_m"/>
+    <Field Name="longitude"/>
+    <Field Name="latitude"/>
+    <Field Name="os_reference"/>
+    <Field Name="wgs84_longitude"/>
+    <Field Name="wgs84_latitude"/>
+  </Schema>
+  <Data Items="0"/>
+</PostcodeAnywhere>

data/test/fixtures/responses/postcode_anywhere/success.xml

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<PostcodeAnywhere Server="WS11" Version="3.0" Date="17/03/2007 18:12:11" Duration="1.703s">
+  <Schema Items="8">
+    <Field Name="line1"/>
+    <Field Name="line2"/>
+    <Field Name="city"/>
+    <Field Name="state"/>
+    <Field Name="postal_code"/>
+    <Field Name="country"/>
+    <Field Name="longitude"/>
+    <Field Name="latitude"/>
+  </Schema>
+  <Data Items="1">
+    <Item line1="204 Campbell Ave" city="Revelstoke" state="BC" postal_code="V0E" country="Canada" longitude="-118.196970002204" latitude="50.9997350418267"/>
+  </Data>
+</PostcodeAnywhere>

data/test/fixtures/responses/postcode_anywhere/uk.xml

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<PostcodeAnywhere Server="WS12" Version="3.0" Date="17/03/2007 19:01:39" Duration="2.422s">
+  <Schema Items="10">
+    <Field Name="id"/>
+    <Field Name="seq"/>
+    <Field Name="location"/>
+    <Field Name="grid_east_m"/>
+    <Field Name="grid_north_m"/>
+    <Field Name="longitude"/>
+    <Field Name="latitude"/>
+    <Field Name="os_reference"/>
+    <Field Name="wgs84_longitude"/>
+    <Field Name="wgs84_latitude"/>
+  </Schema>
+  <Data Items="1">
+    <Item id="17783983.00" seq="0" location="80 Wood Lane London NW9" grid_east_m="521000" grid_north_m="187500" longitude="-0.253788666693255" latitude="51.5728910186362" os_reference="TQ 21000 87500" wgs84_longitude="-0.255365891581496" wgs84_latitude="51.5733397173092"/>
+  </Data>
+</PostcodeAnywhere>

data/test/fixtures/responses/yahoo/success.xml

@@ -0,0 +1,3 @@
+<?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>
+<!-- ws06.search.re2.yahoo.com uncompressed/chunked Wed Apr 25 15:13:01 PDT 2007 -->

data/test/fixtures/responses/yahoo/unknown_address.xml

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Error xmlns="urn:yahoo:api">
+		The following errors were detected:
+		<Message>unable to parse location</Message>
+</Error>
+<!-- ws05.search.re2.yahoo.com uncompressed/chunked Wed Apr 25 15:13:01 PDT 2007 -->

data/test/mocks/uri.rb

@@ -0,0 +1,52 @@
+require 'uri/http'
+require 'open-uri'
+
+##
+# This stub overrides OpenURI's open method to allow programs that use OpenURI
+# to be easily tested.
+#
+# == Usage
+#
+#   require 'rc_rest/uri_stub'
+#   
+#   class TestMyClass < Test::Unit::TestCase
+#     
+#     def setup
+#       URI::HTTP.responses = []
+#       URI::HTTP.uris = []
+#       
+#       @obj = MyClass.new
+#     end
+#     
+#     def test_my_method
+#       URI::HTTP.responses << 'some text open would ordinarily return'
+#       
+#       result = @obj.my_method
+#       
+#       assert_equal :something_meaninfgul, result
+#       
+#       assert_equal true, URI::HTTP.responses.empty?
+#       assert_equal 1, URI::HTTP.uris.length
+#       assert_equal 'http://example.com/path', URI::HTTP.uris.first
+#     end
+#     
+#  end
+
+class URI::HTTP # :nodoc:
+
+  class << self
+    attr_accessor :responses, :uris
+  end
+
+  alias original_open open
+
+  def open(*args)
+    self.class.uris << self.to_s
+    io = StringIO.new(self.class.responses.shift)
+    OpenURI::Meta.init(io)
+    yield io if block_given?
+    io
+  end
+
+end
+

data/test/test_helper.rb

@@ -0,0 +1,32 @@
+$:.unshift(File.dirname(__FILE__) + '/../lib')
+$:.unshift(File.dirname(__FILE__) + '/mocks')
+
+require 'rubygems'
+require 'yaml'
+require 'test/unit'
+require 'breakpoint'
+require 'graticule'
+require 'mocha'
+
+TEST_RESPONSE_PATH = File.dirname(__FILE__) + '/fixtures/responses'
+
+module Test
+  module Unit
+    module Assertions
+      
+      private
+        def response(geocoder, response, extension = 'xml')
+          clean_backtrace do
+            File.read(File.dirname(__FILE__) + "/fixtures/responses/#{geocoder}/#{response}.#{extension}")
+          end
+        end
+      
+        def clean_backtrace(&block)
+          yield
+        rescue AssertionFailedError => e
+          path = File.expand_path(__FILE__)
+          raise AssertionFailedError, e.message, e.backtrace.reject { |line| File.expand_path(line) =~ /#{path}/ }
+        end
+    end
+  end
+end

data/test/unit/graticule/distance_test.rb

@@ -0,0 +1,58 @@
+require File.dirname(__FILE__) + '/../../test_helper'
+
+module Graticule
+  module Distance
+    class DistanceFormulaTest < Test::Unit::TestCase
+      EARTH_RADIUS_IN_MILES = 3963.1676
+      EARTH_RADIUS_IN_KILOMETERS = 6378.135
+
+      FORMULAS = [Haversine, Spherical, Vincenty]
+
+      def test_earth_radius
+        assert_equal EARTH_RADIUS_IN_MILES, EARTH_RADIUS[:miles]
+        assert_equal EARTH_RADIUS_IN_KILOMETERS, EARTH_RADIUS[:kilometers]
+      end
+
+      def test_distance
+        washington_dc = Location.new(:latitude => 38.898748, :longitude => -77.037684)
+        chicago = Location.new(:latitude => 41.85, :longitude => -87.65)
+        
+        FORMULAS.each do |formula|
+          assert_in_delta formula.distance(washington_dc, chicago), formula.distance(chicago, washington_dc), 0.00001
+          assert_in_delta 594.820, formula.distance(washington_dc, chicago), 1.0
+          assert_in_delta 594.820, formula.distance(washington_dc, chicago, :miles), 1.0
+          assert_in_delta 957.275, formula.distance(washington_dc, chicago, :kilometers), 1.0
+        end
+      end
+      
+      def test_distance_between_antipodal_points
+        # The Vincenty formula will be indeterminant with antipodal points.
+        # See http://mathworld.wolfram.com/AntipodalPoints.html
+        washington_dc = Location.new(:latitude => 38.898748, :longitude => -77.037684)
+        chicago = Location.new(:latitude => 41.85, :longitude => -87.65)
+        
+        # First, test the deltas.
+        FORMULAS.each do |formula|
+          assert_in_delta 12450.6582171051, 
+            formula.distance(chicago, chicago.antipodal_location), 1.0
+          assert_in_delta 12450.6582171051, 
+            formula.distance(washington_dc, washington_dc.antipodal_location), 1.0
+          assert_in_delta 12450.6582171051, 
+            formula.distance(chicago, chicago.antipodal_location, :miles), 1.0
+          assert_in_delta 12450.6582171051, 
+            formula.distance(washington_dc, washington_dc.antipodal_location, :miles), 1.0
+          assert_in_delta 20037.50205960391, 
+            formula.distance(chicago, chicago.antipodal_location, :kilometers), 1.0
+          assert_in_delta 20037.5020596039, 
+            formula.distance(washington_dc, washington_dc.antipodal_location, :kilometers), 1.0
+        end
+        
+        # Next, test Vincenty.  Vincenty will use haversine instead of returning NaN on antipodal points
+        assert_equal Haversine.distance(washington_dc, washington_dc.antipodal_location), 
+          Vincenty.distance(washington_dc, washington_dc.antipodal_location)
+        assert_equal Haversine.distance(chicago, chicago.antipodal_location),
+          Vincenty.distance(chicago, chicago.antipodal_location)
+      end
+    end
+  end
+end

data/test/unit/graticule/geocoder/geocoder_us_test.rb

@@ -0,0 +1,43 @@
+require File.dirname(__FILE__) + '/../../../test_helper'
+
+module Graticule
+  module Geocoder
+    class GeocoderUsTest < Test::Unit::TestCase
+
+      def setup
+        URI::HTTP.responses = []
+        URI::HTTP.uris = []
+
+        @geocoder = GeocoderUs.new
+        @location = Location.new(
+          :street => "1600 Pennsylvania Ave NW, Washington DC 20502",
+          :longitude => -77.037684,
+          :latitude => 38.898748
+        )
+      end
+
+      def test_success
+        prepare_response(:success)
+        assert_equal @location, @geocoder.locate('1600 Pennsylvania Ave, Washington DC')
+      end
+    
+      def test_url
+        prepare_response(:success)
+        @geocoder.locate('1600 Pennsylvania Ave, Washington DC')
+        assert_equal 'http://rpc.geocoder.us/service/rest/geocode?address=1600%20Pennsylvania%20Ave,%20Washington%20DC',
+                     URI::HTTP.uris.first
+      end
+
+      def test_locate_bad_address
+        prepare_response(:unknown)
+        assert_raises(AddressError) { @geocoder.locate('yuck') }
+      end
+
+    protected
+      def prepare_response(id)
+        URI::HTTP.responses << response('geocoder_us', id)
+      end
+
+    end
+  end
+end