t/author/http.t

   1 use strict;
   2 use warnings;
   3 use FindBin qw/$Bin/;
   4 use lib "$Bin/../lib";
   5 use Test::More;
   6 use Catalyst::Test 'ESITest';
   7
   8 my $res_content = get('/http_cpan');
   9 like $res_content, qr{CPAN Directory};
  10 like $res_content, qr{WREIS};
  11
  12 $res_content = get('/http_github');
  13 like $res_content, qr{GitHub};
  14 like $res_content, qr{Wallace Reis};
  15
  16 done_testing;