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