Merge remote branch 'wreis/master'

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

diff --git a/t/author/http.t b/t/author/http.t
new file mode 100644 (file)
index 0000000..4fd8c65
--- /dev/null
+++ b/t/author/http.t
@@ -0,0 +1,16 @@
+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;