-{
- local $ENV{HOME} = $home;
- my $res = cgi_run("/test/m/blahblah\@example.com.txt");
- like($res->{body}, qr/Message-Id: <blahblah\@example\.com>/,
- "mid.txt hit");
-
- my $pfx = cgi_run("/prefixed/test/m/blahblah\@example.com.txt");
- is_deeply($pfx, $res, "we do not have to be a top-level URL");
-
- $res = cgi_run("/test/m/blahblah\@example.con.txt");
- like($res->{head}, qr/Status: 404 Not Found/, "mid.txt miss");
-
- $res = cgi_run("/test/m/blahblah\@example.com.html");
- like($res->{body}, qr/\A<html>/, "mid.html hit");
- like($res->{head}, qr/Status: 200 OK/, "200 response");
- $res = cgi_run("/test/m/blahblah\@example.con.html");
- like($res->{head}, qr/Status: 404 Not Found/, "mid.html miss");
-
- $res = cgi_run("/test/f/blahblah\@example.com.html");
- like($res->{body}, qr/\A<html>/, "mid.html hit");
- like($res->{head}, qr/Status: 200 OK/, "200 response");
- $res = cgi_run("/test/f/blahblah\@example.con.html");
- like($res->{head}, qr/Status: 404 Not Found/, "mid.html miss");
+ 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 };
+ }