- my $in = $reply->as_string;
- run_with_env({PATH => $main_path}, [$mda], \$in);
- local $ENV{GIT_DIR} = $maindir;
- my $rev = `git rev-list HEAD`;
- like($rev, qr/\A[a-f0-9]{40}/, "good revision committed");
- }
-
-}
-
-# obvious failures, first
-{
- local $ENV{HOME} = $home;
- my $res = cgi_run("/", "", "PUT");
- like($res->{head}, qr/Status:\s*405/i, "PUT not allowed");
-
- $res = cgi_run("/");
- like($res->{head}, qr/Status:\s*404/i, "index returns 404");
-}
-
-# atom feeds
-{
- local $ENV{HOME} = $home;
- my $res = cgi_run("/test/all.atom.xml");
- like($res->{body}, qr/<title>test for public-inbox/,
- "set title in XML feed");
- like($res->{body},
- qr!http://test\.example\.com/test/m/blah%40example\.com!,
- "link id set");
- like($res->{body}, qr/what\?/, "reply included");
-
- $res = cgi_run("/test/index.atom.xml");
- unlike($res->{body}, qr/what\?/, "reply not included in index");
-}