#!/usr/bin/perl
# http://trac.webkit.org/projects/webkit/changeset/7800
# rdar://problem/3829452 REGRESSION (156-157): onload handler doesn't run on page with meta refresh of 0 duration (new Apple start page)

# flush the buffers after each print
select (STDOUT);
$| = 1;

print "Refresh: 0;url=data:text/html,<body onload='if (window.testRunner) testRunner.notifyDone();'>You should have seen an alert.\r\n";
print "Content-Type: text/html\r\n";
print "\r\n";

print << "EOF";
<html>
<head>
<script>
if (window.testRunner) {
    testRunner.dumpAsText();
    testRunner.waitUntilDone();
}
</script>
<meta http-equiv="refresh" content="0;url=data:text/html,%3Cbody%20onload='if(window.testRunner)testRunner.notifyDone();'%3EYou%20should%20have%20seen%20an%20alert.">
</head>
EOF

for ($count=1; $count<20000; $count++) {
    print " \n";
}

print << "EOF";
<body onload="alert('SUCCESS');">
</body>
</html>
EOF