GUI-graticule 0.2.7.2

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 1st Ave, Sunnyvale, CA 94089"><Latitude>37.416402</Latitude><Longitude>-122.025078</Longitude><Address>701 1st Ave</Address><City>Sunnyvale</City><State>CA</State><Zip>94089-1019</Zip><Country>US</Country></Result></ResultSet>
+<!-- ws03.search.scd.yahoo.com compressed/chunked Fri Jun 20 14:25:40 PDT 2008 -->

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+Pennsylvania+Ave%2C+Washington+DC',
+                     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

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

@@ -0,0 +1,126 @@
+require File.dirname(__FILE__) + '/../../../test_helper'
+
+module Graticule
+  module Geocoder
+    class GoogleTest < Test::Unit::TestCase
+      def setup
+        URI::HTTP.responses = []
+        URI::HTTP.uris = []
+        @geocoder = Google.new(:key => 'APP_ID')
+      end
+    
+      def test_success
+        return unless prepare_response(:success)
+      
+        location = Location.new(
+          :street => "1600 Amphitheatre Pkwy",
+          :locality => "Mountain View",
+          :region => "CA",
+          :postal_code => "94043",
+          :country => "US",
+          :longitude => -122.083739,
+          :latitude => 37.423021,
+          :precision => Precision.address
+        )
+        assert_equal location, @geocoder.locate('1600 Amphitheatre Parkway, Mountain View, CA')
+      end
+      
+      # <?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>
+      def test_only_coordinates
+        return unless prepare_response(:only_coordinates)
+
+        location = Location.new(:longitude => -17.000000, :latitude => 15.000000)
+        assert_equal location, @geocoder.locate('15-17 & 16 Railroad Square, Nashua, NH, 03064')
+      end
+        
+
+
+      def test_partial
+        return unless prepare_response(:partial)
+        
+        location = Location.new(
+          :locality => "San Francisco",
+          :region => "CA",
+          :country => "US",
+          :longitude => -122.418333,
+          :latitude => 37.775000,
+          :precision => Precision.city
+        )
+        
+        assert_equal location, @geocoder.locate('sf ca')
+      end
+
+      def test_locate_with_first
+        prepare_response(:multiple)
+        location = Location.new(
+          :locality => "Gardiner",
+          :region => "ME",
+          :country => "US",
+          :longitude => -69.802949,
+          :latitude => 44.198024
+        )
+        assert @geocoder.locate(:first, 'Gardiner')
+      end
+
+      def test_locate_with_all
+        prepare_response(:multiple)
+        assert_equal 3, @geocoder.locate(:all, 'Gardiner').size
+      end
+
+      def test_precision
+        return unless prepare_response(:success)
+
+        assert_equal Precision.address, @geocoder.locate("1600 Amphitheatre Parkway, Mountain View, CA").precision
+      end
+
+      def test_precision_comparison
+        return unless prepare_response(:success)
+        location1 = @geocoder.locate("1600 Amphitheatre Parkway, Mountain View, CA")
+
+        return unless prepare_response(:partial)
+        location2 = @geocoder.locate("sf ca")
+
+        comparison = location1.precision <=> location2.precision
+
+        assert_equal 1, comparison
+      end
+
+      def test_bad_key
+        return unless prepare_response(:badkey)
+        assert_raises(CredentialsError) { @geocoder.locate('x') }
+      end
+    
+      def test_locate_missing_address
+        return unless prepare_response(:missing_address)
+        assert_raises(AddressError) { @geocoder.locate 'x' }
+      end
+    
+      def test_locate_server_error
+        return unless prepare_response(:server_error)
+        assert_raises(Error) { @geocoder.locate 'x' }
+      end
+
+      def test_locate_too_many_queries
+        return unless prepare_response(:limit)
+        assert_raises(CredentialsError) { @geocoder.locate 'x' }
+      end
+
+      def test_locate_unavailable_address
+        return unless prepare_response(:unavailable)
+        assert_raises(AddressError) { @geocoder.locate 'x' }
+      end
+
+      def test_locate_unknown_address
+        return unless prepare_response(:unknown_address)
+        assert_raises(AddressError) { @geocoder.locate 'x' }
+      end
+
+    protected
+
+      def prepare_response(id = :success)
+        URI::HTTP.responses << response('google', id)
+      end
+  
+    end
+  end
+end