t/opml.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5 use FindBin qw/$Bin/;
   6
   7 BEGIN {
   8     $ENV{GITALIST_CONFIG} = $Bin;
   9     $ENV{GITALIST_REPO_DIR} = '';
  10     use_ok 'Catalyst::Test', 'Gitalist';
  11 }
  12
  13 my $res = request('/opml');
  14 ok $res->is_success;
  15
  16 like $res->content, qr{Gitalist</title>};
  17 like $res->content, qr{xmlUrl="http://localhost/bare.git/rss"};
  18 like $res->content, qr{text="repo1 - some test repository"};
  19 like $res->content, qr{xmlUrl="http://localhost/repo1/rss"};
  20
  21 done_testing;