LayoutTests:
[WebKit-https.git] / LayoutTests / http / tests / incremental / slow-utf8-css.pl
1 #!/usr/bin/perl -w
2
3 # Flush STDOUT after each print.
4 select (STDOUT);
5 $| = 1;
6
7 print "Content-Type: text/css; charset=utf-8\n";
8 print "Expires: Thu, 01 Dec 2003 16:00:00 GMT\n";
9 print "Cache-Control: no-store, no-cache, must-revalidate\n";
10 print "Pragma: no-cache\n";
11 print "\n";
12
13 print "\xef\xbb\xbfTest for bug 10753: The beginning of a CSS file is missing.\n\n";
14 # Dump some BOMs to bypass CFNetwork buffering.
15 for ($count = 1; $count < 4000; $count++) {
16     print "\xef\xbb\xbf";
17 }
18
19 # Delay to force the second line of text to be decoded as a separate chunk.
20 sleep 1;
21 print "You should see a bug description on a separate line above this one.";