Changeset 1842

Timestamp:

11/24/06 09:03:30

Author:

miyagawa

Message:

removed CR from sample XML files. Support geo:Point in Namespace::Geo

Files:

• branches/feature-geo/plagger/lib/Plagger/Plugin/Namespace/Geo.pm (modified) (1 diff)
• branches/feature-geo/plagger/t/plugins/Namespace-Geo/base.t (modified) (3 diffs)
• branches/feature-geo/plagger/t/samples/rss2-geo-point.xml (added)
• branches/feature-geo/plagger/t/samples/rss2-geo.xml (modified) (previous)

branches/feature-geo/plagger/lib/Plagger/Plugin/Namespace/Geo.pm

@@ -17 +17 @@
-    # XXX for now RSS only, do the same for Atom
-    my $geo = $args->{orig_entry}->{entry}->{$geo_ns} || {};
+       $geo = $geo->{Point}->{geo} if $geo->{Point};
-    if (defined($geo->{lat}) && defined($geo->{long})) {
-        my $loc = Plagger::Location->new;

branches/feature-geo/plagger/t/plugins/Namespace-Geo/base.t

@@ -4 +4 @@
-
-test_plugin_deps;
-2
+4
-run_eval_expected;
-
@@ -19 +19 @@
-      feed:
-        - file://$t::TestPlagger::BaseDirURI/t/samples/rss2-geo.xml
+        - file://$t::TestPlagger::BaseDirURI/t/samples/rss2-geo-point.xml
-  - module: Namespace::Geo
-  - module: Aggregator::Simple
@@ -25 +26 @@
-is $feeds[0]->entries->[0]->location->latitude, 26.58;
-is $feeds[0]->entries->[0]->location->longitude, -97.83;
+is $feeds[1]->entries->[0]->location->latitude, 26.58;
+is $feeds[1]->entries->[0]->location->longitude, -97.83;