LayoutTests:
[WebKit-https.git] / LayoutTests / http / tests / incremental / slow-utf8-text.pl
1 #!/usr/bin/perl -w
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 }