third_party/WebKit/LayoutTests/http/tests/incremental/split-hex-entities.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/html\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 "<body>\n";
  14 print "<script>\n";
  15 print "    if (window.testRunner)\n";
  16 print "        testRunner.dumpAsText();\n";
  17 print "</script>\n";
  18 print "<p>Test for <a href=\"http://bugzilla.opendarwin.org/show_bug.cgi?id=4820\">bug 4820</a>: hexadecimal HTML entities split across TCP packets are not parsed correctly.</p>";
  19 print "<p>Should be a blank page (except for this description).</p>";
  20
  21 for ($count=1; $count<3000; $count++) {
  22     print "&#x0020;&#x0020; &#x0020;&#x0020;&#x0020;&#x0020;&#x20;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;  ";
  23     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
  24     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; &#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
  25     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
  26     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
  27     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x020;&#x0020;&#x0020;&#x0020;&#x020;&#x0020;&#x0020;&#x0020;";
  28     print "&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x20;&#x0020;&#x0020;&#x0020; &#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
  29     print "&#x0020;&#x0020;&#x0020; &#x20; &#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020;&#x0020; ";
  30 }
  31 print "</body>\n";