- $res = cgi_run("/test/");
- like($res->{body}, qr/slashy%2Fasdf%40example\.com/,
- "slashy URL generated correctly");
+ 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");
+ }
+}
+
+# redirect list-name-only URLs
+{
+ local $ENV{HOME} = $home;
+ my $res = cgi_run("/test");
+ like($res->{head}, qr/Status: 301 Moved/, "redirected status");
+ like($res->{head}, qr!/test/!, "redirected with slash");