third_party/WebKit/LayoutTests/http/tests/incremental/slow-utf8-text.pl

   1 #!/usr/bin/perl -wT
   2
   3 # flush the buffers after each print
   4 select (STDOUT);
   5 $| = 1;
   6
   7 print "Content-Type: text/plain\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 5187: UTF-8 in long text files breaks at some point.\n\n";
  14 for ($count=1; $count<2000; $count++) {
  15     print "\x65\xcc\x81";
  16 }
  17 sleep 1;
  18 for ($count=1; $count<2000; $count++) {
  19     print "\x65\xcc\x81";
  20 }
  21 for ($count=1; $count<2000; $count++) {
  22     print "\x65\xcc\x81";
  23 }