X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpredicate_objects.t;h=47b2a7854fa14e3b4339eee7243d8f125afe29b9;hb=2c74748e4256c608843f217451cd6d548bc08946;hp=b073220f8e16110ab939c5366867b29d26fd3c0b;hpb=456dc2bbf3016f2597cee32e06de13bd06d5eb0f;p=catagits%2FWeb-Simple.git

diff --git a/t/predicate_objects.t b/t/predicate_objects.t
index b073220..47b2a78 100644
--- a/t/predicate_objects.t
+++ b/t/predicate_objects.t
@@ -14,18 +14,20 @@ use Plack::Test;
 
     sub dispatch_request {
         my $self = shift;
-        match_path(qr/(?^:^(\/)$)/), sub {
+        ## sub(/) {
+        match_path(qr/(?-xism:^(\/)$)/), sub {
             $self->show_landing(@_);
         },
-        match_path_strip(qr/(?^:^()(\/.*)$)/) => sub {
+        ## sub(/...) {
+        match_path_strip(qr/(?-xism:^()(\/.*)$)/) => sub {
             match_and
             (
                 match_method('GET'),
-                match_path(qr/(?^:^(\/user(?:\.\w+)?)$)/)
+                match_path(qr/(?-xism:^(\/user(?:\.\w+)?)$)/)
             )  => sub {
                 $self->show_users(@_);
             },
-            match_path(qr/(?^:^(\/user\/([^\/]+?)(?:\.\w+)?)$)/), sub {
+            match_path(qr/(?-xism:^(\/user\/([^\/]+?)(?:\.\w+)?)$)/), sub {
                 match_method('GET') => sub {
                     $self->show_user(@_);
                 },
@@ -138,14 +140,14 @@ cmp_ok $get_user->code, '==', 200,
     is ref($env), 'HASH', 'Got hashref';
 }
 
-ok my $post_user = run_request(POST => 'http://localhost/user/42', [id => '99'] ),
+ok my $post_user = run_request(POST => 'http://localhost/user/42', id => '99' ),
   'post user';
 
 cmp_ok $post_user->code, '==', 200,
   '200 on POST';
 
 {
-    my ($self, $params, $env, @noextra) = @{eval $post_user->content};
+    my ($self, $params, $env, @noextra) = @{eval $post_user->content or die $@};
     is scalar(@noextra), 0, 'No extra stuff';
     is ref($self), 't::Web::Simple::SubDispatchArgs', 'got object';
     is ref($params), 'HASH', 'Got POST hashref';