change the User Agent string

[catagits/XML-Feed.git] / t / 10-mix-and-match.t

# $Id$

use strict;
use Test::More tests => 6;
use XML::Feed;


my $afeed  = XML::Feed->new('Atom');
my $rfeed  = XML::Feed->new('RSS');
my $atom   = make_entry('Atom');
my $rss    = make_entry('RSS');


ok($afeed->add_entry($atom), "Added Atom entry to Atom feed");
ok($afeed->add_entry($rss),  "Added RSS  entry to Atom feed");

ok($rfeed->add_entry($rss),  "Added RSS  entry to RSS feed");
ok($rfeed->add_entry($atom), "Added Atom entry to RSS feed");



is(scalar $afeed->entries, 2, 'Now 2 entries in Atom feed');
is(scalar $rfeed->entries, 2, 'Now 2 entries in RSS  feed');

sub make_entry {
    my $format = shift;
    my $entry  = XML::Feed::Entry->new($format);
    $entry->title("Test Title ".rand());
    $entry->content("Foo");
    $entry->summary("Bar");
    return $entry;
}