[Catalyst-commits] r13778 - in Test-WWW-Mechanize-Catalyst/trunk: . t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-12-05 20:10:07 +0000 (Sun, 05 Dec 2010)
New Revision: 13778

Modified:
   Test-WWW-Mechanize-Catalyst/trunk/CHANGES
   Test-WWW-Mechanize-Catalyst/trunk/t/simple.t
   Test-WWW-Mechanize-Catalyst/trunk/t/white_label.t
Log:
Fix to pass tests against the psgi branch

Modified: Test-WWW-Mechanize-Catalyst/trunk/CHANGES
===================================================================
--- Test-WWW-Mechanize-Catalyst/trunk/CHANGES	2010-12-05 18:13:48 UTC (rev 13777)
+++ Test-WWW-Mechanize-Catalyst/trunk/CHANGES	2010-12-05 20:10:07 UTC (rev 13778)
@@ -1,5 +1,12 @@
 Revision history for Perl module Test::WWW::Mechanize::Catalyst:
 
+     - Fix tests to work with the upcoming psgi based Catalyst release
+       as $c->req->header('Host') now more accurately reflects what you
+       see in a real web server (i.e. the port will not be defined if it
+       is 80)
+     - Fix tests to work when the CATALYST_DEBUG environment variable is
+       set by explicitly setting it to 0 in tests which require it.
+
 0.52 Mon Mar 8 01:25 GMT 2010
      - Move actions out of the test applications to avoid deprecation warnings.
      - POD corrections by jhannah

Modified: Test-WWW-Mechanize-Catalyst/trunk/t/simple.t
===================================================================
--- Test-WWW-Mechanize-Catalyst/trunk/t/simple.t	2010-12-05 18:13:48 UTC (rev 13777)
+++ Test-WWW-Mechanize-Catalyst/trunk/t/simple.t	2010-12-05 20:10:07 UTC (rev 13778)
@@ -5,6 +5,10 @@
 use Encode qw();
 use Test::More tests => 37;
 use lib 't/lib';
+BEGIN {
+    $ENV{CATALYST_DEBUG} = 0;
+    $ENV{CATTY_DEBUG} = 0;
+}
 use Test::WWW::Mechanize::Catalyst 'Catty';
 
 my $root = "http://localhost";

Modified: Test-WWW-Mechanize-Catalyst/trunk/t/white_label.t
===================================================================
--- Test-WWW-Mechanize-Catalyst/trunk/t/white_label.t	2010-12-05 18:13:48 UTC (rev 13777)
+++ Test-WWW-Mechanize-Catalyst/trunk/t/white_label.t	2010-12-05 20:10:07 UTC (rev 13778)
@@ -9,8 +9,8 @@
 
 $m->host('foo.com');
 $m->get_ok('/host');
-$m->content_contains('Host: foo.com:80');
+$m->content_contains('Host: foo.com');
 
 $m->clear_host;
 $m->get_ok('/host');
-$m->content_contains('Host: localhost:80') or diag $m->content;
+$m->content_contains('Host: localhost') or diag $m->content;