D 2019-07-30T17:56:45.201
J icomment Here\sis\sa\stest\sWapp\sscript\sI\sam\susing:\r\n\r\n<blockquote><verbatim>\r\nsource\s./wapp.tcl\r\nproc\swapp-default\s{}\s{\r\n\s\swapp-trim\s{\r\n\s\s\s\s<p>Visit\sthe\s<a\shref='%html([wapp-param\sBASE_URL]/slow)'>slow</a>\r\n\s\s\s\spage\sfor\sa\sslow-to-load\scase.</p>\r\n\s\s}\r\n}\r\nproc\swapp-page-slow\s{}\s{\r\n\s\sset\sx\s[expr\s{abs(int(rand()*100000))}]\r\n\s\sfor\s{set\si\s0}\s{$i<20000000}\s{incr\si}\s{\r\n\s\s\s\sset\sx\s[expr\s{$x+1}]\r\n\s\s}\r\n\s\swapp-trim\s{\r\n\s\s\s\s<h1>Slow\spage</h1>\r\n\s\s\s\s<p>x\s=\s%html($x)</p>\r\n\s\s}\r\n}\r\nwapp-start\s$argv\r\n</verbatim></blockquote>\r\n\r\nI\srun\sthis\sas\s"tclsh\sslow.tcl\s--server\s8080"\sand\sthen\slook\sat\sthe\s/slow\spage\r\nin\sa\swebbrowser.\s\sThen\sI\sstart\shammering\sthe\srefresh\sbutton.\s\sEverything\sworks\r\nfine\sfor\sme.\s\sNo\serrors.\s\s(Tcl\s8.7,\sFirefox,\sUbuntu)\r\n\r\nDo\syou\shave\sanother\stest\scase\sthat\swill\sbetter\sdemonstrate\sthe\sproblem?
J login drh
J mimetype text/x-fossil-wiki
K 207094dd9de1343af9d874b8562fc1b4169c3e44
U drh
Z 4e7837a02270bb9da7db474af9f611ad