[Catalyst-commits] r14130 - Test-WWW-Mechanize-Catalyst/trunk/t

[rbuels at dev.catalyst.perl.org]

Author: rbuels
Date: 2011-10-13 21:13:09 +0000 (Thu, 13 Oct 2011)
New Revision: 14130

Modified:
   Test-WWW-Mechanize-Catalyst/trunk/t/multi_content_type.t
Log:
add host-with-port test in the only test that has an external server

Modified: Test-WWW-Mechanize-Catalyst/trunk/t/multi_content_type.t
===================================================================
--- Test-WWW-Mechanize-Catalyst/trunk/t/multi_content_type.t	2011-10-13 21:10:16 UTC (rev 14129)
+++ Test-WWW-Mechanize-Catalyst/trunk/t/multi_content_type.t	2011-10-13 21:13:09 UTC (rev 14130)
@@ -10,7 +10,7 @@
     $ENV{CATALYST_SERVER} ||= "http://localhost:$PORT";
 }
 
-use Test::More tests => 8;
+use Test::More tests => 9;
 use Test::Exception;
 
 BEGIN {
@@ -42,7 +42,7 @@
 }
 
 SKIP: {
-  skip $skip, 7 if $skip;
+  skip $skip, 8 if $skip;
   lives_ok { $m->get_ok( '/', 'Get a multi Content-Type response' ) }
   'Survive to a multi Content-Type sting';
 
@@ -53,6 +53,10 @@
   # Test a redirect with a remote server now too.
   $m->get_ok( '/hello' );
   is($m->uri, "$ENV{CATALYST_SERVER}/");
+
+  $m->get_ok( '/host' );
+  $m->content_contains('Host: localhost:$PORT') or diag $m->content;
+
 }
 
 END {