X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01-parse.t;h=fcb5256059e45252fec48dd74281eb52dbab1b1a;hb=4e7b539fe6627cd40cbb1ef36065e13c82fc3224;hp=b1939d19dd4a9528229f936e887e46a0e2cb32fe;hpb=72406e48f7f978abeecca83b63c400769ebb1d05;p=catagits%2FXML-Feed.git diff --git a/t/01-parse.t b/t/01-parse.t index b1939d1..fcb5256 100644 --- a/t/01-parse.t +++ b/t/01-parse.t @@ -15,26 +15,26 @@ my %Feeds = ( 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');