runtest.itcl   [plain text]

#
# 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]<"