- SKIP: { skip 'DBD::SQLite not available', 4 };
- }
-
- 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 $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::TreePP missing', 2 };