tests/commands.test

# -- commands.test
# 
# Tcl commands suite tests
#
# Testing the output of various commands that 
# provide a swiss knife for formatting, generating, etc.etc.
#

::tcltest::test tcl-xml-1.1 {::rivet::xml command} {
    set page [::http::geturl "${urlbase}commands.tcl?cmd=xml"]
    ::http::data $page
} {<a><b a1="v1" a2="v2"><c a1="v1" a2="v2">a text string</c></b></a>
<b a1="v1" a2="v2"><c a1="v1" a2="v2"><a>a text string</a></c></b>
<b a1="v1" a2="v2"><c a1="v1" a2="v2"><a></a></c></b>
<a a1="v1" a2="v2"/>
<br />}