From: Kieren Diment <diment@gmail.com>
Date: Sun, 21 Jun 2009 00:31:39 +0000 (+0000)
Subject: this test is not for the regression which you seek
X-Git-Tag: 5.80014_02~141
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=0cd116722bf9a4f41e35f16904c484dd702f9592

this test is not for the regression which you seek
---

diff --git a/t/path_escape_bug.t b/t/path_escape_bug.t
deleted file mode 100644
index 7454432..0000000
--- a/t/path_escape_bug.t
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/env perl
-use warnings;
-use strict;
-use Test::More qw/no_plan/;
-
-{
-    package TestApp;
-    use parent qw/Catalyst/;
-    use parent qw/Catalyst::Controller/;
-    __PACKAGE__->setup();
-
-    sub thing :Path {
-        my ($self, $c, @path) = @_;
-        $c->res->body(join "/", @path);
-    }
-    sub another :Path('something') {
-        my ($self, $c) = @_;
-        $c->forward('thing');
-    }
-    sub thing_uri :Path('thing_uri') {
-        my ($self, $c, @path) = @_;
-        $c->res->body($c->uri_for(@path));
-    }
-}
-
-use_ok "Catalyst::Test", "TestApp";
-my $req_path = 'foo/bar/baz quoxx{fnord}';
-my $req = request("/$req_path");
-ok($req->is_success, 'request succeeds');
-is($req->content, $req_path, "returned path is identical to received path");
-$req = request("/something/$req_path");
-ok($req->is_success, 'request succeeds');
-is($req->content, $req_path, "returned path is identical to received path 2");
-$req = request("/thing_uri/$req_path");
-ok($req->is_success, 'request succeeds');
-is($req->content, "http://localhost/$req_path", "returned path is identical to received path 2");
-