| OLD | NEW |
| (Empty) |
| 1 #!/usr/bin/perl -w | |
| 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 "\xef\xbb\xbf<body><p>Bug 21381: Incremental parsing of html causes bogus
line numbers in some cases</p>\n"; | |
| 14 print "<p>This tests that the line numbers associated with a script element are
correct, even when parsing is "; | |
| 15 print "interrupted mid way through the script element</p>\n"; | |
| 16 print "<pre id=log></pre>\n"; | |
| 17 print "<script>\n"; | |
| 18 print "if (window.testRunner)\n"; | |
| 19 print " testRunner.dumpAsText();\n"; | |
| 20 for ($count=1; $count<4000; $count++) { | |
| 21 print "\n"; | |
| 22 } | |
| 23 print "try { unknownFunction(); } catch(e) { \n"; | |
| 24 print "if (e.line != 4006)\n"; | |
| 25 print " document.getElementById('log').innerText = 'FAIL: Got ' + e.line + '
expected 4006';\n"; | |
| 26 print "else \n"; | |
| 27 print " document.getElementById('log').innerText = 'PASS: Got ' + e.line;\n";
| |
| 28 print "}\n"; | |
| 29 print "</script>\n"; | |
| OLD | NEW |