X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frss.t;h=98a7faa2f979455e48f0c2b1970c4006f806da6f;hb=df6292661bd22bb00ba89f0684b60bb8096383c8;hp=c9c38042960f2a175c32cf2dac759356f7674049;hpb=cce03a80183c94b16b411533e3744f9d03625634;p=catagits%2FGitalist.git diff --git a/t/rss.t b/t/rss.t index c9c3804..98a7faa 100644 --- a/t/rss.t +++ b/t/rss.t @@ -1,10 +1,17 @@ #!/usr/bin/env perl use FindBin qw/$Bin/; -BEGIN { do "$FindBin::Bin/../script/env" or die $@ } +BEGIN { + my $env = "$FindBin::Bin/script/env"; + if (-r $env) { + do $env or die $@; + } +} + use lib "$Bin/lib"; use TestGitalist; +use HTTP::Request::Common; -my $res = request('/repo1/rss'); +my $res = request(GET 'http://localhost/repo1/rss', 'Content-Type' => 'application/rss+xml'); ok $res->is_success; is $res->content_type, 'application/rss+xml'; like $res->content, qr{link>http://localhost/repo1