-{
- 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");
- $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_feed = eval { require XML::Feed; 1 } if $indexed;
+ if ($have_xml_feed) {
+ $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");
+ } else {
+ SKIP: { skip 'DBD::SQLite or XML::Feed missing', 2 };
+ }