subroutine act24326
* verify that the w3HtmlInsert cache is cleared by w3HtmlInsertFlush
include wbp w3include
* the following named common block is provided for Raining Data
* testing purposes only. The name, purpose, and function of this
* named common block may change without notice.
common /w3HtmlInsertSection/ name, template
* report results
msg = ""
templateName = "MT.Accept"
call w3HtmlInit("", "")
call w3HtmlInsert(templateName, "")
if name # templateName then
msg = "Failed: Template name not set"
end else
call w3HtmlInsertFlush
if name # "" then
msg = "Failed: Template name not cleared"
end
end
if msg = "" then msg = "Passed"
call w3HtmlClear ;* flush current page to
* build results
call w3HtmlInit("", "")
call w3HtmlHeader("","")
call w3Print('<P>': msg)
call w3HtmlFooter("","")
return