Fix Bric::Util::ApacheReq test failures.

Fixe bug in the Bric::Util::ApacheReq tests where they would fail if the
`LISTEN_PORT` or `SSL_PORT` `bricolage.conf` directives were anything other
than 80 and 443, respectively. Thanks to Héctor Daniel Cortés González for the
report.

comp/widgets/help/debuggers.html

@@ -92,4 +92,5 @@
   <li>Iván Chavero</li>
   <li>Zdravko Balorda</li>
   <li>Vincent Stemen</li>
+  <li>Héctor Daniel Cortés González</li>
 </ul>

lib/Bric/Changes.pod

@@ -10,6 +10,19 @@ This document lists the Changes to Bricolage introduced with each release.
 
 =head1 Version 2.0.1 ()
 
+=head2 Bug Fixes
+
+=over
+
+=item *
+
+Fixed a bug in the L<Bric::Util::ApacheReq> tests where they would fail if the
+C<LISTEN_PORT> or C<SSL_PORT> F<bricolage.conf> directives were anything other
+than 80 and 443, respectively. Thanks to Héctor Daniel Cortés González for the
+report. [David]
+
+=back
+
 =head1 Version 2.0.0 (2010-04-12)
 
 =head2 Bug Fixes

lib/Bric/License.pod

@@ -490,6 +490,8 @@ Friends who have spotted bugs include:
 
 =item * Vincent Stemen
 
+=item * Héctor Daniel Cortés González
+
 =back
 
 Bricolage's translation team:

t/Bric/Util/ApacheReq/Test.pm

@@ -18,17 +18,22 @@ sub _test_load : Test(1) {
 sub test_url : Test(6) {
     my $mock = Test::MockModule->new($CLASS);
     $mock->mock( instance => My::Big::Fat::Req->new );
+    my $port = LISTEN_PORT == 80 ? '' : ':' . LISTEN_PORT;
 
     ok $CLASS->url, "$CLASS->url should return something";
-    is $CLASS->url, 'http://www.example.com/', 'And it should be the right thing';
-    is $CLASS->url( uri => '/foo'), 'http://www.example.com/foo',
+    is $CLASS->url, "http://www.example.com$port/", 'And it should be the right thing';
+    is $CLASS->url( uri => '/foo'), "http://www.example.com$port/foo",
         'The uri param should work';
-    is $CLASS->url( uri => ''), 'http://www.example.com',
+    is $CLASS->url( uri => ''), "http://www.example.com$port",
         'An empty uri param should work';
-    my $s = SSL_ENABLE ? 's' : '';
-    is $CLASS->url( ssl => 1), "http$s://www.example.com/",
+    my $s = '';
+    if (SSL_ENABLE) {
+        $s = 's';
+        $port = SSL_PORT == 443 ? '' : ':' . SSL_PORT;
+    }
+    is $CLASS->url( ssl => 1), "http$s://www.example.com$port/",
         'The ssl param should work';
-    is $CLASS->url( uri => '/foo', ssl => 1), "http$s://www.example.com/foo",
+    is $CLASS->url( uri => '/foo', ssl => 1), "http$s://www.example.com$port/foo",
         'The uri and ssl params should work together';
 }