my $feed;
my $file = 't/samples/atom.xml';
$feed = XML::Feed->parse($file);
-isa_ok($feed, 'XML::Feed::Atom');
+isa_ok($feed, 'XML::Feed::Format::Atom');
is($feed->title, 'First Weblog');
open my $fh, $file or die "Can't open $file: $!";
$feed = XML::Feed->parse($fh);
-isa_ok($feed, 'XML::Feed::Atom');
+isa_ok($feed, 'XML::Feed::Format::Atom');
is($feed->title, 'First Weblog');
seek $fh, 0, 0;
my $xml = do { local $/; <$fh> };
$feed = XML::Feed->parse(\$xml);
-isa_ok($feed, 'XML::Feed::Atom');
+isa_ok($feed, 'XML::Feed::Format::Atom');
is($feed->title, 'First Weblog');
$feed = XML::Feed->parse(URI->new("file:$file"));
-isa_ok($feed, 'XML::Feed::Atom');
+isa_ok($feed, 'XML::Feed::Format::Atom');
is($feed->title, 'First Weblog');
## Then try calling all of the unified API methods.
for my $file (sort keys %Feeds) {
my $feed = XML::Feed->parse($file) or die XML::Feed->errstr;
my($subclass) = $Feeds{$file} =~ /^(\w+)/;
- isa_ok($feed, 'XML::Feed::' . $subclass);
+ isa_ok($feed, 'XML::Feed::Format::' . $subclass);
is($feed->format, $Feeds{$file});
is($feed->language, 'en-us');
is($feed->title, 'First Weblog');
for my $format (qw( Atom RSS )) {
my $feed = XML::Feed->new($format);
- isa_ok($feed, 'XML::Feed::' . $format);
+ isa_ok($feed, 'XML::Feed::Format::' . $format);
like($feed->format, qr/^$format/, 'Format is correct');
$feed->title('My Feed');
is($feed->title, 'My Feed', 'feed title is correct');
ok($feed->as_xml, 'as_xml returns something');
my $entry = XML::Feed::Entry->new($format);
- isa_ok($entry, 'XML::Feed::Entry::' . $format);
+ isa_ok($entry, 'XML::Feed::Entry::Format::' . $format);
$entry->title('Foo Bar');
is($entry->title, 'Foo Bar', 'entry title is correct');
$entry->link('http://www.example.com/foo/bar.html');