1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# $Id$
use strict;
use XML::Atom;
use XML::Atom::Feed;
use XML::Atom::Link;
use Test::More tests => 9;
my $feed = XML::Atom::Feed->new(Version => 1.0);
$feed->title("foo bar");
my $link = XML::Atom::Link->new(Version => 1.0);
$link->href("http://www.example.com/");
my $entry = XML::Atom::Entry->new(Version => 1.0);
$entry->title("Foo Bar");
$entry->content("foo bar");
$feed->add_link($link);
$feed->add_entry($entry);
like $feed->as_xml, qr!<feed xmlns="http://www.w3.org/2005/Atom"!;
unlike $feed->as_xml, qr!mode="xml"!;
like $feed->as_xml, qr!type="xhtml"!;
# usage of DefaultVersion
$XML::Atom::DefaultVersion = 1.0;
$feed = XML::Atom::Feed->new;
$feed->title("foo bar");
$feed->add_link({ href => "http://www.example.com/" });
$entry = XML::Atom::Entry->new( Version => "1.0" );
$entry->title("Foo Bar");
$entry->content("foo bar");
$feed->add_entry($entry);
like $feed->as_xml, qr!<feed xmlns="http://www.w3.org/2005/Atom"!;
unlike $feed->as_xml, qr!mode="xml"!;
like $feed->as_xml, qr!type="xhtml"!;
# parse again
my $xml = $feed->as_xml;
$feed = XML::Atom::Feed->new(Stream => \$xml);
is $feed->version, "1.0";
is $feed->title, "foo bar";
is $feed->link->href, 'http://www.example.com/';
|
