X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fopml.t;fp=t%2Fopml.t;h=ee94c853ebc581b78a20ec846746eda0b72e8c60;hb=ade777e57a93cbf76e27268c1fe45835eb14ba48;hp=0000000000000000000000000000000000000000;hpb=df49ca464bb5b86ff380c563b26e81c16e4c1e5f;p=catagits%2FGitalist.git

diff --git a/t/opml.t b/t/opml.t
new file mode 100644
index 0000000..ee94c85
--- /dev/null
+++ b/t/opml.t
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use FindBin qw/$Bin/;
+
+BEGIN {
+    $ENV{GITALIST_CONFIG} = $Bin;
+    $ENV{GITALIST_REPO_DIR} = '';
+    use_ok 'Catalyst::Test', 'Gitalist';
+}
+
+my $res = request('/opml');
+ok $res->is_success;
+
+like $res->content, qr{Gitalist</title>};
+like $res->content, qr{xmlUrl="http://localhost/bare.git/rss"};
+like $res->content, qr{text="repo1 - some test repository"};
+like $res->content, qr{xmlUrl="http://localhost/repo1/rss"};
+
+done_testing;