about summary refs log tree commit
path: root/t/cgi.t
diff options
context:
space:
mode:
Diffstat (limited to 't/cgi.t')
-rw-r--r--t/cgi.t13
1 files changed, 7 insertions, 6 deletions
diff --git a/t/cgi.t b/t/cgi.t
index dc1c8b8a..97bdebd9 100644
--- a/t/cgi.t
+++ b/t/cgi.t
@@ -121,18 +121,19 @@ EOF
                 SKIP: { skip 'DBD::SQLite not available', 2 };
         }
 
-        my $have_xml_feed = eval { require XML::Feed; 1 } if $indexed;
-        if ($have_xml_feed) {
+        my $have_xml_treepp = eval { require XML::TreePP; 1 } if $indexed;
+        if ($have_xml_treepp) {
                 $path = "/test/blahblah\@example.com/t.atom";
                 $res = cgi_run($path);
                 like($res->{head}, qr/^Status: 200 /, "atom returned 200");
                 like($res->{head}, qr!^Content-Type: application/atom\+xml!m,
                         "search returned atom");
-                my $p = XML::Feed->parse(\($res->{body}));
-                is($p->format, "Atom", "parsed atom feed");
-                is(scalar $p->entries, 3, "parsed three entries");
+                my $t = XML::TreePP->new->parse($res->{body});
+                is(scalar @{$t->{feed}->{entry}}, 3, "parsed three entries");
+                like($t->{feed}->{-xmlns}, qr/\bAtom\b/,
+                                'looks like an an Atom feed');
         } else {
-                SKIP: { skip 'DBD::SQLite or XML::Feed missing', 2 };
+                SKIP: { skip 'DBD::SQLite or XML::TreePP missing', 2 };
         }
 }