X-Git-Url: https://git.m6w6.name/?a=blobdiff_plain;ds=inline;f=tests%2Fenvresponse016.phpt;fp=tests%2Fenvresponse016.phpt;h=67595b42896a6cc3a47a3873f66248baf6abb8c9;hb=c8476df58018aecebc7720b784cf454b6eb6dbae;hp=0000000000000000000000000000000000000000;hpb=3ecc68196ad39199abde298391756bfcfd636504;p=m6w6%2Fext-http

diff --git a/tests/envresponse016.phpt b/tests/envresponse016.phpt
new file mode 100644
index 0000000..67595b4
--- /dev/null
+++ b/tests/envresponse016.phpt
@@ -0,0 +1,34 @@
+--TEST--
+env response send failure
+--SKIPIF--
+<?php
+include "skipif.inc";
+?>
+--FILE--
+<?php
+
+echo "Test\n";
+
+class closer extends php_user_filter {
+	function filter ($in, $out, &$consumed, $closing) {
+		while ($bucket = stream_bucket_make_writeable($in)) {
+			stream_bucket_append($out, $bucket);
+		}
+		return PSFS_ERR_FATAL;
+	}
+}
+
+stream_filter_register("closer", "closer");
+
+$r = new http\Env\Response;
+$r->getBody()->append(str_repeat("a", 16*1024*4));
+$s = fopen("php://temp", "w");
+stream_filter_append($s, "closer");
+var_dump($r->send($s));
+?>
+DONE
+--EXPECTF--
+Test
+Warning: http\Env\Response::send(): Failed to send response body in %s on line %d
+bool(false)
+DONE