Tests for double dot bug
Jens Gassmann [Sun, 18 Dec 2016 21:39:38 +0000 (22:39 +0100)]
t/relative_root_action_for_bug.t

index 8db0f1f..825cdb5 100644 (file)
@@ -19,6 +19,12 @@ use Test::Most;
       Test::Most::is $self->action_for('story/story'), 'story/story';
     }
 
+    sub default : Path {
+
+        my ($self, $c) = @_;
+        $c->response->body("Ok");
+    }
+
     MyApp::Controller::Root->config(namespace=>'');
 
     package MyApp::Controller::Story;
@@ -76,6 +82,10 @@ use Catalyst::Test 'MyApp';
 ok request '/top';
 ok request '/story';
 ok request '/author';
+ok request '/double';
+ok request '/double/file.ext';
+ok request '/double/file..ext';
+
 
-done_testing(10);
+done_testing(13);