Fix 5.80 bug which causes slurp to fail if called multiple times

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Engine / Request / Uploads.pm

diff --git a/t/lib/TestApp/Controller/Engine/Request/Uploads.pm b/t/lib/TestApp/Controller/Engine/Request/Uploads.pm
index f51df9d..37124cd 100644 (file)
--- a/t/lib/TestApp/Controller/Engine/Request/Uploads.pm
+++ b/t/lib/TestApp/Controller/Engine/Request/Uploads.pm
@@ -6,6 +6,10 @@ use base 'Catalyst::Controller';
 sub slurp : Relative {
     my ( $self, $c ) = @_;
     $c->response->content_type('text/plain; charset=utf-8');
+    my $upload = $c->request->upload('slurp');
+    my $contents = $upload->slurp;
+    my $contents2 = $upload->slurp;
+    die("Slurp not callable multiple times") unless $contents eq $contents2;
     $c->response->output( $c->request->upload('slurp')->slurp );
 }