入门

注意：目前，此示例仅适用于 Tcl v8.5 或更早版本。有关详细信息，请参阅在单个系统上使用多个 Tcl 版本。

创建一个名为 hello.tcl 的文件，内容如下

if { $argc == 0 } {
    puts "Hello World!"
} else {
    for {set i 0} {$i<$argc} {incr i} {
        if { $i == 0 } {
            set hello "Hello [lindex $argv $i]"
        } elseif { $i == $argc - 1 } {
            set hello "$hello and [lindex $argv $i]"
        } else {
            set hello "$hello, [lindex $argv $i]"
        }
    }
    puts $hello
}

使用 tclsh 解析器执行 hello.tcl

$ coveragescannertcl tclsh hello.tcl Jim John James

生成两个文件

tclsh.csmes：hello.tcl 的植入数据库
tclsh.csexe：执行报告。

要导入执行报告到其植入数据库中，请执行

$ cmcsexeimport -m tclsh.csmes --title="Jim John James" tclsh.csexe

导入后，您可以直接使用 CoverageBrowser 分析代码覆盖率数据或生成 HTML 报告。

$ cmreport --title="Hello application" -m tclsh.csmes --html=tclsh.html

在单个系统上使用多个 Tcl 版本

Coco 目前不支持使用 tclsh 在 Tcl v8.6 中使用。如果您想使用 coveragescannertcl 与 tclsh，则必须使用 Tcl v8.5 或更早版本。

在某些 UNIX^®系统（如 Debian Linux™）上，可以同时存在多个 Tcl 版本。这样的系统的可执行文件将有不同的名称。在这样的系统上，Tcl v8.5 的 tclsh 可执行文件可能被命名为 tclsh8.5。

然后我们可以运行 CoverageScannerTcl 来调用 tclsh8.5。但是，这将改变生成文件的名称为 tclsh8.5.csmes 和 tclsh8.5.csexe。我们可以使用另一个命令行选项，--cs-output=tclsh 来纠正这一点。上面的第一个命令现在变为

$ coveragescannertcl --cs-output=tclsh tclsh8.5 hello.tcl Jim John James

然后，可以像以前一样执行示例的其余部分。

TCL 命令行参数 Coco TCL 教程