X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpredicate_objects.t;h=47b2a7854fa14e3b4339eee7243d8f125afe29b9;hb=run_if_script_error;hp=9801d9ece72fccd15c966af0239c997ae066c635;hpb=7268421c725f99cd2d0addcdb65a1017f4c40097;p=catagits%2FWeb-Simple.git

diff --git a/t/predicate_objects.t b/t/predicate_objects.t
index 9801d9e..47b2a78 100644
--- a/t/predicate_objects.t
+++ b/t/predicate_objects.t
@@ -140,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';