aboutsummaryrefslogtreecommitdiff
path: root/contrib/bluegnu2.0.3/testsets/BlueGnu/runtest.itcl
blob: 076802607b479814f2f275563e0e0df5f01dac7a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#
# This script is testing the runtest command
#

#runtest [list A.itcl\[1\]=arg A.itcl\[2\]=arg]
runtest [list namespaceVariables.itcl namespaceVariables.itcl]

#note "test scripts: >>>>\n[join [parseTest A.itcl  A.itcl\[2=x=y\]=arg2 \
	[list A.itcl\[1\]  A.itcl]] "\n"]<<<<"
#note "test scripts: >>>>\n[join [appendTestCaseID [appendArguments \
	[parseTest A.itcl  A.itcl\[2=x=y\]=arg2 \
	[list A.itcl\[1\]  A.itcl]] XYZ=abc] DEF] "\n"]<<<<"

#note "test scripts: >[appendTestCaseID \
	[list A.itcl\[DEF\]=xyz=100 A.itcl\[GHI\]=xyz=200] =SSN=00101001]<"

#note "test scripts: >[appendArguments \
	[list A.itcl A.itcl=SSN=001010001 \
	A.itcl\[1\] A.itcl\[2\]=SSN=001010001] BODS=ABC]<"