svn commit: r1856334 - /httpd/test/framework/trunk/t/modules/buffer.t

[jo...@apache.org]

Author: jorton
Date: Tue Mar 26 17:52:21 2019
New Revision: 1856334

URL: http://svn.apache.org/viewvc?rev=1856334&view=rev
Log:
Test a size which works reliably in absence of known LWP
full-duplex HTTP weirdness.

Modified:
    httpd/test/framework/trunk/t/modules/buffer.t

Modified: httpd/test/framework/trunk/t/modules/buffer.t
URL: http://svn.apache.org/viewvc/httpd/test/framework/trunk/t/modules/buffer.t?rev=1856334&r1=1856333&r2=1856334&view=diff
==============================================================================
--- httpd/test/framework/trunk/t/modules/buffer.t (original)
+++ httpd/test/framework/trunk/t/modules/buffer.t Tue Mar 26 17:52:21 2019
@@ -24,10 +24,15 @@ foreach my $t (@testcases) {
     
     ## Big query ##
     # 'foo' is 3 bytes, so 'foo' x 1000000 is ~3M, which is way over the default 'BufferSize'
-    $r = POST($t->[0], content => $t->[1] x 1000000);
+    ### FIXME - testing with to x 10000 is confusing LWP's full-duplex
+    ### handling: https://github.com/libwww-perl/libwww-perl/issues/299
+    ### throttled down to a size which seems to work reliably for now
+    my $bigsize = 100000;
+
+    $r = POST($t->[0], content => $t->[1] x $bigsize);
 
     # Checking for return code
     ok t_cmp($r->code, 200, "Checking return code is '200'");
     # Checking for content
-    ok t_is_equal($r->content, $t->[1] x 1000000);
+    ok t_is_equal($r->content, $t->[1] x $bigsize);
 }