| #!/usr/bin/perl -w |
| |
| # Flush STDOUT after each print. |
| select (STDOUT); |
| $| = 1; |
| |
| print "Content-Type: text/css; charset=utf-8\n"; |
| print "Expires: Thu, 01 Dec 2003 16:00:00 GMT\n"; |
| print "Cache-Control: no-store, no-cache, must-revalidate\n"; |
| print "Pragma: no-cache\n"; |
| print "\n"; |
| |
| print "\xef\xbb\xbfTest for bug 10753: The beginning of a CSS file is missing.\n\n"; |
| # Dump some BOMs to bypass CFNetwork buffering. |
| for ($count = 1; $count < 4000; $count++) { |
| print "\xef\xbb\xbf"; |
| } |
| |
| # Delay to force the second line of text to be decoded as a separate chunk. |
| sleep 1; |
| print "You should see a bug description on a separate line above this one."; |