- 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/blahblah\@example.com/");
+ like($res->{body}, qr/\A<html>/, "mid html hit");
+ like($res->{head}, qr/Status: 200 OK/, "200 response");
+ $res = cgi_run("/test/blahblah\@example.con/");
+ like($res->{head}, qr/Status: 300 Multiple Choices/, "mid html miss");
+
+ $res = cgi_run("/test/blahblah\@example.com/f/");
+ like($res->{head}, qr/Status: 301 Moved/, "301 response");
+ like($res->{head},
+ qr!^Location: http://[^/]+/test/blahblah\@example\.com/\r\n!ms,
+ '301 redirect location');
+ $res = cgi_run("/test/blahblah\@example.con/");
+ like($res->{head}, qr/Status: 300 Multiple Choices/, "mid html miss");
+
+ $res = cgi_run("/test/new.html");
+ like($res->{body}, qr/slashy%2Fasdf\@example\.com/,
+ "slashy URL generated correctly");
+}