contrib/bluegnu2.0.3/testsets/examples/versionTcl.itcl


1
2
3
4
5
6
7
8

if [doCmd {set tcl_version} errorCode=NONE \
	return=[list [list 1 8.0]] V] {
    # code when failure:
    #     variable tcl_version does not exists or
    #     does not return 8.0
} else {
    # variable V will contain 8.0
}