REBOL [
Title: "htmlrep.r tester"
]
do %../modules/htmlrep.r
HTMLREP-FILE-ID: %htmlrep-testresult.html
HTMLREP-TITLE: "Test results for htmlrep.r"
TEST-STRING: "This is a string"
TEST-INTEGER: 123
TEST-CURRENCY: $123.45
print "Executing HTMLREP-OPEN"
HTMLREP-OPEN
print "Executing HTMLREP-EMIT-HEAD"
HTMLREP-EMIT-HEAD [
"String"
"Integer"
"Currency"
]
print "Executing HTMLREP-EMIT-LINE"
HTMLREP-EMIT-LINE [
TEST-STRING
TEST-INTEGER
TEST-CURRENCY
]
print "Executing HTMLREP-CLOSE"
HTMLREP-CLOSE
browse HTMLREP-FILE-ID
print "Check above for error messages"
print "Enter 'quit' to quit"
halt