src/third_party/WebKit/LayoutTests/http/tests/incremental/resources/slow-utf8-css.pl

   1 #!/usr/bin/perl -wT
   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\xbf#result {color:green;}\n";
  14 # Dump some spaces to bypass CFNetwork buffering.
  15 for ($count = 1; $count < 4000; $count++) {
  16     print "   ";
  17 }
  18
  19 # Delay to force the second line of text to be decoded as a separate chunk.
  20 sleep 1;
  21 print "body {}";