Commit | Line | Data |
3353d70c |
1 | # $Id$ |
5383a560 |
2 | |
3 | use strict; |
7c89ffff |
4 | use Test::More tests => 13; |
5383a560 |
5 | use XML::Feed; |
6 | |
7 | |
8 | my $feed = XML::Feed->parse('t/samples/base_atom.xml'); |
9 | my ($entry) = $feed->entries; |
10 | my $content = $entry->content; |
7c89ffff |
11 | is($feed->base, "http://example.org/", "Got feed base"); |
12 | is($entry->base, "http://example.org/archives/", "Got entry base"); |
13 | is($content->base, "http://example.org/archives/000001.html", "Got content base"); |
14 | |
15 | my $xml = $feed->as_xml; |
16 | my $new; |
17 | ok($new = XML::Feed->parse(\$xml), "Parsed old feed"); |
18 | my ($new_entry) = $new->entries; |
19 | my $new_content = $entry->content; |
20 | is($new->base, "http://example.org/", "Got feed base"); |
21 | is($new_entry->base, "http://example.org/archives/", "Got entry base"); |
22 | is($new_content->base, "http://example.org/archives/000001.html", "Got content base"); |
23 | |
24 | |
25 | ok($feed->base("http://foo.com/"), "Set feed base"); |
26 | ok($entry->base("http://foo.com/archives/"), "Set entry base"); |
27 | ok($content->base("http://foo.com/archives/000001.html"), "Set content base"); |
28 | |
29 | is($feed->base, "http://foo.com/", "Got feed base"); |
30 | is($entry->base, "http://foo.com/archives/", "Got entry base"); |
31 | is($content->base, "http://foo.com/archives/000001.html", "Got content base"); |
32 | |