[Catalyst-commits] r10605 - Catalyst-Runtime/5.80/trunk/t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-06-20 23:23:19 +0000 (Sat, 20 Jun 2009)
New Revision: 10605

Modified:
   Catalyst-Runtime/5.80/trunk/t/unit_core_uri_for.t
Log:
Re-add lukes specific regression test from r10498

Modified: Catalyst-Runtime/5.80/trunk/t/unit_core_uri_for.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_core_uri_for.t	2009-06-20 17:18:53 UTC (rev 10604)
+++ Catalyst-Runtime/5.80/trunk/t/unit_core_uri_for.t	2009-06-20 23:23:19 UTC (rev 10605)
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 18;
+use Test::More tests => 19;
 use URI;
 
 use_ok('Catalyst');
@@ -51,6 +51,11 @@
     'http://127.0.0.1/foo/yada/bar/wibble%3F/with%20space', 'Space gets encoded'
 );
 
+is(
+    Catalyst::uri_for( $context, '/bar', 'with+plus', { 'also' => 'with+plus' })->as_string,
+    'http://127.0.0.1/foo/bar/with+plus?also=with%2Bplus',
+    'Plus is not encoded'
+);
 
 # test with utf-8
 is(