Make base work

[catagits/XML-Feed.git] / t / 11-xml-base-rss.t

diff --git a/t/11-xml-base-rss.t b/t/11-xml-base-rss.t
index 2cba3ca..6efcdcb 100644 (file)
--- a/t/11-xml-base-rss.t
+++ b/t/11-xml-base-rss.t
@@ -1,14 +1,33 @@
 # $Id: $
 
 use strict;
-#use Test::More tests => 3;
-use Test::More skip_all => "xml:base support not available in XML::RSS yet";
+use Test::More tests => 13;
 use XML::Feed;
 
 
 my $feed    = XML::Feed->parse('t/samples/base_rss.xml');
 my ($entry) = $feed->entries;
 my $content = $entry->content;
-is($feed->base,    "http://example.org/",                     "Got feed base");
-is($entry->base,   "http://example.org/archives/",            "Got entry base");
-is($content->base, "http://example.org/archives/000001.html", "Got content base");
+is($feed->base,    "http://example.org/",                         "Got feed base");
+is($entry->base,   "http://example.org/archives/",                "Got entry base");
+is($content->base, "http://example.org/archives/000001.html",     "Got content base");
+
+my $xml = $feed->as_xml;
+my $new;
+ok($new =  XML::Feed->parse(\$xml),                               "Parsed old feed");
+my ($new_entry)  = $new->entries;
+my $new_content  = $entry->content;
+is($new->base,         "http://example.org/",                     "Got feed base");
+is($new_entry->base,   "http://example.org/archives/",            "Got entry base");
+is($new_content->base, "http://example.org/archives/000001.html", "Got content base");
+
+
+ok($feed->base("http://foo.com/"),                                "Set feed base");
+ok($entry->base("http://foo.com/archives/"),                      "Set entry base");
+ok($content->base("http://foo.com/archives/000001.html"),         "Set content base");
+
+is($feed->base,    "http://foo.com/",                             "Got feed base");
+is($entry->base,   "http://foo.com/archives/",                    "Got entry base");
+is($content->base, "http://foo.com/archives/000001.html",         "Got content base");
+
+