| #!/usr/bin/perl | |
| # This script outputs a broken transfer-encoded response. In order to deliver | |
| # didReceiveResponse to the client (i.e. XHR), we send a small valid chunk | |
| # first, wait a while and then send an invalid chunk. | |
| use IO::Socket; | |
| $| = 1; | |
| autoflush STDOUT 1; | |
| print "Content-Type: text/html; charset=us-ascii\n"; | |
| print "X-Content-Type-Options: nosniff\n"; | |
| print "Transfer-encoding: chunked\n\n"; | |
| print "5\nhello\n"; | |
| sleep 2; | |
| print "hoge\nfuga\n"; |