Tests for double dot bug

[catagits/Catalyst-Runtime.git] / t / relative_root_action_for_bug.t

diff --git a/t/relative_root_action_for_bug.t b/t/relative_root_action_for_bug.t
index 9443052..825cdb5 100644 (file)
--- a/t/relative_root_action_for_bug.t
+++ b/t/relative_root_action_for_bug.t
@@ -17,11 +17,12 @@ use Test::Most;
       my ($self, $c) = @_;
       Test::Most::is $self->action_for('top'), 'top';
       Test::Most::is $self->action_for('story/story'), 'story/story';
+    }
 
-      #warn ref($c)->dispatcher->get_action('story/story', '/root');
+    sub default : Path {
 
-      #use Devel::Dwarn;
-      #Dwarn ref($c)->dispatcher->_action_hash->{'story/story'};
+        my ($self, $c) = @_;
+        $c->response->body("Ok");
     }
 
     MyApp::Controller::Root->config(namespace=>'');
@@ -62,9 +63,10 @@ use Test::Most;
     sub author :Chained(root) Args(0) {
       my ($self, $c, $id) = @_;
       Test::Most::is $self->action_for('author'), 'story/author/author';
+      Test::Most::is $self->action_for('../story'), 'story/story';
+      Test::Most::is $self->action_for('../../top'), 'top';
     }
 
-
     __PACKAGE__->meta->make_immutable;
 
     package MyApp;
@@ -77,9 +79,13 @@ use Test::Most;
 
 use Catalyst::Test 'MyApp';
 
+ok request '/top';
 ok request '/story';
 ok request '/author';
-ok request '/top';
+ok request '/double';
+ok request '/double/file.ext';
+ok request '/double/file..ext';
+
 
-done_testing(8);
+done_testing(13);