Update tests
Simon Wistow [Mon, 3 Nov 2008 23:53:48 +0000 (23:53 +0000)]
t/00-compile.t
t/01-parse.t
t/02-create.t

index cbf2520..c1c7d58 100644 (file)
@@ -5,5 +5,5 @@ use Test::More tests => 4;
 
 use_ok('XML::Feed');
 use_ok('XML::Feed::Entry');
-use_ok('XML::Feed::RSS');
-use_ok('XML::Feed::Atom');
+use_ok('XML::Feed::Format::RSS');
+use_ok('XML::Feed::Format::Atom');
index b1939d1..fcb5256 100644 (file)
@@ -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');
index 5070154..776565c 100644 (file)
@@ -9,7 +9,7 @@ use DateTime;
 
 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');
@@ -35,7 +35,7 @@ for my $format (qw( Atom RSS )) {
     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');