Changeset 7333 for lang/perl/HTTP-MobileAgent-Plugin-Locator/branches/get_locator_from_params/t

Timestamp:

03/01/08 19:42:36 (5 years ago)

Author:

chiba

Message:

lang/perl/HTTP-MobileAgent?-Plugin-Locator: implement get_locator from params

Files:

• lang/perl/HTTP-MobileAgent-Plugin-Locator/branches/get_locator_from_params/t/01.get_location.t (modified) (4 diffs)

lang/perl/HTTP-MobileAgent-Plugin-Locator/branches/get_locator_from_params/t/01.get_location.t

@@ -13 +13 @@
     is_deeply( { lat => $location->lat, lng => $location->lng  },
                { lat => '35.21.03.342', lng => '138.34.45.725' } );
+    
+    # BasicLocation on GPS compliant device
+    $location = $agent->get_location( {
+        AREACODE => '05902', LAT => '+35.39.43.538', LON => '+139.44.06.232', GEO => 'wgs84', XACC => 1 
+    } );
+    is ref $location, 'Geo::Coordinates::Converter::Point';
+    is_deeply( { lat => $location->lat, lng => $location->lng  },
+               { lat => '35.39.43.538', lng => '139.44.06.232' } );
+    
+    $location = $agent->get_location( {
+        AREACODE => '05902'
+    } );
+    is ref $location, 'Geo::Coordinates::Converter::Point';
+    is_deeply( { lat => $location->lat, lng => $location->lng  },
+               { lat => '35.39.43.535', lng => '139.44.06.233' } );
 }
 
@@ -43 +58 @@
     is_deeply( { lat => $location->lat, lng => $location->lng  },
                { lat => '35.21.03.342', lng => '138.34.45.725' } );
+
+    # BasicLocation on GPS compliant device
+    $location = $agent->get_location( { lat => '35.21.03.342', lon => '138.34.45.725' } );
+    is ref $location, 'Geo::Coordinates::Converter::Point';
+    is_deeply( { lat => $location->lat, lng => $location->lng  },
+               { lat => '35.21.03.342', lng => '138.34.45.725' } );
 }
 
@@ -48 +69 @@
     local $ENV{HTTP_USER_AGENT} = 'KDDI-CA31 UP.Browser/6.2.0.7.3.129 (GUI) MMP/2.0';
     my $agent = HTTP::MobileAgent->new;
-    my $location = $agent->get_location( { lat => '+35.21.03.342', lon => '+138.34.45.725' } );
+    my $location = $agent->get_location( { lat => '35.21.03.342', lon => '138.34.45.725' } );
     is ref $location, 'Geo::Coordinates::Converter::Point';
     is_deeply( { lat => $location->lat, lng => $location->lng  },
@@ -61 +82 @@
     is_deeply( { lat => $location->lat, lng => $location->lng  },
                { lat => '35.21.03.342', lng => '138.34.45.725' } );
+    
+
+    # BasicLocation on GPS compliant device
+    local $ENV{ HTTP_X_JPHONE_GEOCODE } = '352051%1a1383456%1afoo';
+    $location = $agent->get_location();
+    is ref $location, 'Geo::Coordinates::Converter::Point';
+    is_deeply( { lat => $location->lat, lng => $location->lng  },
+               { lat => '35.21.02.678', lng => '138.34.44.820' } );
 }