Skip to content

Commit 95dd8a4

Browse files
committed
Big upload has to be allowed on server side
T605-046 If upload size could be more than Upload_Size_Limit, the server side has to check Status.Is_Body_Uploaded and call Server.Get_Message_Body if necessary.
1 parent ad2cb26 commit 95dd8a4

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

regtests/0326_big_post/big_post.adb

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -44,6 +44,10 @@ procedure Big_Post is
4444

4545
function CB (Request : Status.Data) return Response.Data is
4646
begin
47+
if not Status.Is_Body_Uploaded (Request) then
48+
Server.Get_Message_Body;
49+
end if;
50+
4751
Text_IO.Put_Line
4852
("Length payload: " & Status.Content_Length (Request)'Img);
4953
return Response.Build (MIME.Text_HTML, "ok");

0 commit comments

Comments
 (0)