X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Frelative_root_action_for_bug.t;h=06cd0c2e541a9b2f50572a6e932aad9869231540;hp=94430526961b372380a5913a7eee60923c1c68a2;hb=c2eac008b6f566090128f60259a6cc8fee720298;hpb=518b61984c49533ec00813125b16812cd681e778

diff --git a/t/relative_root_action_for_bug.t b/t/relative_root_action_for_bug.t
index 9443052..06cd0c2 100644
--- a/t/relative_root_action_for_bug.t
+++ b/t/relative_root_action_for_bug.t
@@ -1,4 +1,6 @@
-use Test::Most;
+use warnings;
+use strict;
+use Test::More;
 
 {
     package MyApp::Controller::Root;
@@ -15,13 +17,14 @@ use Test::Most;
 
     sub top :Chained('root') Args(0) {
       my ($self, $c) = @_;
-      Test::Most::is $self->action_for('top'), 'top';
-      Test::Most::is $self->action_for('story/story'), 'story/story';
+      Test::More::is $self->action_for('top'), 'top';
+      Test::More::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=>'');
@@ -41,8 +44,8 @@ use Test::Most;
     sub story :Chained(root) Args(0) {
       my ($self, $c) = @_;
 
-      Test::Most::is $self->action_for('story'), 'story/story';
-      Test::Most::is $self->action_for('author/author'), 'story/author/author';
+      Test::More::is $self->action_for('story'), 'story/story';
+      Test::More::is $self->action_for('author/author'), 'story/author/author';
     }
 
     __PACKAGE__->meta->make_immutable;
@@ -61,10 +64,11 @@ use Test::Most;
 
     sub author :Chained(root) Args(0) {
       my ($self, $c, $id) = @_;
-      Test::Most::is $self->action_for('author'), 'story/author/author';
+      Test::More::is $self->action_for('author'), 'story/author/author';
+      Test::More::is $self->action_for('../story'), 'story/story';
+      Test::More::is $self->action_for('../../top'), 'top';
     }
 
-
     __PACKAGE__->meta->make_immutable;
 
     package MyApp;
@@ -77,9 +81,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);