tests/shorthand.test

# $Id: $

::tcltest::test shorthand-1.1 {shorthand expression for simple output} {
    set page  [::http::geturl "${urlbase}shorthand.rvt"]
    set match [::http::data $page]
    set match
} {<pre>testing &lt;?= ... ?&gt; shorthand expression</pre>
}