File: commands.test

package info (click to toggle)
libapache2-mod-rivet 3.1.1-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 5,716 kB
  • sloc: xml: 8,442; tcl: 7,199; ansic: 6,727; sh: 4,983; makefile: 261; 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 />}