File: commands.test

package info (click to toggle)
libapache2-mod-rivet 3.2.2-1
  • links: PTS
  • area: main
  • in suites: bookworm
  • size: 6,296 kB
  • sloc: xml: 8,554; tcl: 7,568; ansic: 7,094; sh: 5,017; makefile: 195; sql: 91; lisp: 78
file content (16 lines) | stat: -rw-r--r-- 521 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
# -- 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 />}