t/opml.t

   1 #!/usr/bin/env perl
   2 use FindBin qw/$Bin/;
   3 use lib "$Bin/lib";
   4 use TestGitalist;
   5
   6 my $res = request('/opml');
   7 ok $res->is_success;
   8
   9 is $res->content_type, 'application/rss';
  10 like $res->content, qr{Gitalist</title>};
  11 like $res->content, qr{xmlUrl="http://localhost/bare.git/rss"};
  12 like $res->content, qr{text="repo1 - some test repository"};
  13 like $res->content, qr{xmlUrl="http://localhost/repo1/rss"};
  14
  15 done_testing;