1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
# tclxmlutils.tcl --
#
# This script prepares the testing environment for TclXML.
#
# Copyright (c) 2003 Zveno Pty Ltd.
#
# $Id: tclxmlutils.tcl,v 1.2 2003/12/03 20:06:37 balls Exp $
package require tcltest
tcltest::Option -parser xml {
Selects the XML parser class.
} AcceptAll parser
source [file join [tcltest::workingDirectory] testutils.tcl]
eval tcltest::configure $argv
switch -- $tcltest::parser {
xml {
package require xml
switch [xml::parserclass info default] {
libxml2 {
tcltest::testConstraint xml_libxml2 1
}
expat {
tcltest::testConstraint xml_expat 1
}
tcl {
tcltest::testConstraint xml_tcl 1
}
}
}
libxml2 {
tcltest::testConstraint xml_libxml2 1
}
expat {
tcltest::testConstraint xml_expat 1
}
tclparser {
tcltest::testConstraint xml_tcl 1
}
}
|
