t/11-xml-base-rss.t

   1 # $Id: $
   2
   3 use strict;
   4 #use Test::More tests => 3;
   5 use Test::More skip_all => "xml:base support not available in XML::RSS yet";
   6 use XML::Feed;
   7
   8
   9 my $feed    = XML::Feed->parse('t/samples/base_rss.xml');
  10 my ($entry) = $feed->entries;
  11 my $content = $entry->content;
  12 is($feed->base,    "http://example.org/",                     "Got feed base");
  13 is($entry->base,   "http://example.org/archives/",            "Got entry base");
  14 is($content->base, "http://example.org/archives/000001.html", "Got content base");