Commit | Line | Data |
f7c452ee |
1 | # $Id$ |
2 | |
3 | use strict; |
4 | use Test::More tests => 1; |
5 | use XML::Feed; |
6 | use XML::Feed::Entry; |
7 | |
8 | my $feed = XML::Feed->new(); |
9 | $feed->title('My Feed'); |
10 | $feed->link('http://www.example.com/'); |
11 | $feed->description('Wow!'); |
12 | |
13 | my $entry = XML::Feed::Entry->new(); |
14 | $entry->title('Foo Bar'); |
15 | $entry->link('http://www.example.com/foo/bar.html'); |
16 | $entry->content('This is the content, but there is no summary.'); |
17 | $entry->author('Foo Baz'); |
18 | |
19 | $feed->add_entry($entry); |
20 | |
21 | |
22 | unlike($feed->convert('Atom')->as_xml(), qr{<summary>}, |
23 | 'no summary tag after converting to Atom'); |