[catagits/Catalyst-View-Component-SubInclude.git] / t / author / http.t

use strict;
use warnings;
use FindBin qw/$Bin/;
use lib "$Bin/../lib";
use Test::More;
use Catalyst::Test 'ESITest';

my $res_content = get('/http_cpan');
like $res_content, qr{CPAN Directory};
like $res_content, qr{WREIS};

$res_content = get('/http_github');
like $res_content, qr{GitHub};
like $res_content, qr{Wallace Reis};

done_testing;
Commit	Line	Data
7b1b8afd	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;