throw error on failed new in run_if_script

[catagits/Web-Simple.git] / t / predicate_objects.t

diff --git a/t/predicate_objects.t b/t/predicate_objects.t
index b073220..47b2a78 100644 (file)
--- 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';