third_party/WebKit/LayoutTests/http/tests/loading/onload-vs-immediate-refresh.pl

   1 #!/usr/bin/perl
   2 # http://trac.webkit.org/projects/webkit/changeset/7800
   3 # rdar://problem/3829452 REGRESSION (156-157): onload handler doesn't run on page with meta refresh of 0 duration (new Apple start page)
   4
   5 # flush the buffers after each print
   6 select (STDOUT);
   7 $| = 1;
   8
   9 print "Refresh: 0;url=data:text/html,<body onload='if (window.testRunner) testRunner.notifyDone();'>You should have seen an alert.\r\n";
  10 print "Content-Type: text/html\r\n";
  11 print "\r\n";
  12
  13 print << "EOF";
  14 <html>
  15 <head>
  16 <script>
  17 if (window.testRunner) {
  18     testRunner.dumpAsText();
  19     testRunner.waitUntilDone();
  20 }
  21 </script>
  22 <meta http-equiv="refresh" content="0;url=data:text/html,%3Cbody%20onload='if(window.testRunner)testRunner.notifyDone();'%3EYou%20should%20have%20seen%20an%20alert.">
  23 </head>
  24 EOF
  25
  26 for ($count=1; $count<20000; $count++) {
  27     print " \n";
  28 }
  29
  30 print << "EOF";
  31 <body onload="alert('SUCCESS');">
  32 </body>
  33 </html>
  34 EOF