From: Sebastian Riedel <sri@labs.kraih.com>
Date: Sat, 19 Nov 2005 22:21:24 +0000 (+0000)
Subject: Added test
X-Git-Tag: 5.7099_04~859
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=0a7a5cf70757043b0081fe21cd84c45e7d867985

Added test
---

diff --git a/t/unit_utils_request.t b/t/unit_utils_request.t
new file mode 100644
index 0000000..ce74d55
--- /dev/null
+++ b/t/unit_utils_request.t
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+
+use Test::More tests => 5;
+
+use_ok('Catalyst::Utils');
+
+{
+    my $url = "/dump";
+    ok(
+        my $request = Catalyst::Utils::request($url),
+        "Request: simple get without protocol nor host"
+    );
+    like( $request->uri, qr|^http://localhost/|,
+        " has default protocol and host" );
+}
+
+{
+    my $url = "/dump?url=http://www.somewhere.com/";
+    ok(
+        my $request = Catalyst::Utils::request($url),
+        "Same with param containing a url"
+    );
+    like( $request->uri, qr|^http://localhost/|,
+        " has default protocol and host" );
+}
+