X-Git-Url: https://git.m6w6.name/?a=blobdiff_plain;f=tests%2Fenvresponse016.phpt;fp=tests%2Fenvresponse016.phpt;h=8d48c9374276e812b3aa65eab3688aa0c76efe10;hb=2240fb6678019ad6b5dc9c37cfb454f5e57600bd;hp=0000000000000000000000000000000000000000;hpb=c8e26d5995fa51e41176b23c4f48084f20052899;p=m6w6%2Fext-http

diff --git a/tests/envresponse016.phpt b/tests/envresponse016.phpt
new file mode 100644
index 0000000..8d48c93
--- /dev/null
+++ b/tests/envresponse016.phpt
@@ -0,0 +1,35 @@
+--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