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

[zarquon at dev.catalyst.perl.org]

Author: zarquon
Date: 2009-06-21 00:31:39 +0000 (Sun, 21 Jun 2009)
New Revision: 10609

Removed:
   Catalyst-Runtime/5.80/trunk/t/path_escape_bug.t
Log:
this test is not for the regression which you seek

Deleted: Catalyst-Runtime/5.80/trunk/t/path_escape_bug.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/path_escape_bug.t	2009-06-21 00:26:22 UTC (rev 10608)
+++ Catalyst-Runtime/5.80/trunk/t/path_escape_bug.t	2009-06-21 00:31:39 UTC (rev 10609)
@@ -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");
-