如何在tcl中实现goto

Question

我想知道如何在tcl中实现GOTO。 我正在写一个测试案例，我说了5个步骤。 如果我的第1步失败，我不想继续前进，我想跳过现有的东西并转到一个常见的清理部分。

如果tcl中有任何GOTO命令，请帮助我。

谢谢，Ramya。

Answer 1

在Tcl中没有 goto ，并且由于相对技术原因，不可能实现一个。

但是你可以用其他方式做你想做的事情。 由于您正在处理测试用例，我希望您使用tcltest包来完成工作。 有了它，您可以非常轻松地指定清理代码：

tcltest::test test-1.1 "verify that the foo works" -setup {
    allocate some resources
} -body {
    whatever to do the test...
    return [our results]
} -cleanup {
    drop those resources
    make sure that we are nice and clean
} -result "the expected test result"

只需return就可以轻松跳过测试的主体; tcltest::test命令将检测它并将其视为结果。 通常最好尽量保持每个测试独立于其他测试：这样可以更容易地跟踪测试失败时出现的问题。

如果你没有使用tcltest ，你仍然最好重构一些你可以使用return尽早跳过的东西。 您可以将它与try…finally… （原生在Tcl 8.6中，或者在Tcler的Wiki上使用此代码 ）结合起来，以简化 ：

proc doThings {} {
    try {
        # do thing-1
        if {$no_more} return
        # do thing-2
        if {$no_more} return
        # do thing-3
        if {$no_more} return
        # do thing-4
        if {$no_more} return
        # do thing-5
    } finally {
        # do cleanup
    }
}