実行中のtcltestテストの名前

Question

Tclスクリプトで現在実行中のtcltesttestという名前を取得したいと思います。たとえば、次のコードは、テストの名前印刷するようになっている：

#!/usr/bin/tclsh 
package require tcltest 

tcltest::test testFunction {} -body { 
    puts [lindex [info level 0] 0] 
    set a 1 
} -result 1 

をしかし、それは次のエラーを与える：

==== testFunction FAILED 
==== Contents of test case: 

    puts [lindex [info level 0] 0] 
    set a 1 

---- Test generated error; Return code was: 1 
---- Return code should have been one of: 0 2 
---- errorInfo: bad level "0" 
    while executing 
"info level 0" 
    ("uplevel" body line 2) 
    invoked from within 
"uplevel 1 $script" 
---- errorCode: TCL LOOKUP STACK_LEVEL 0 
==== testFunction FAILED 

任意のヘルプ、私がやっているいくつかの基本的な間違いがなければなりませんこれは非常に感謝しています。

Answer 1

私はそのようなイントロスペクションを見つけることができませんでした。私は走っているテストを記録し、あるテストから別のテストへの移行をマークしたいので、私は見ました。

とにかくテスト名を知ることを止めるものはありません。

namespace eval ::testname { 
    variable name foo 
    variable major 1 
    variable minor 0 
    proc curname {} { 
     variable name 
     variable major 
     variable minor 
     return $name-$major.$minor 
    } 
} 

set ::testname::name testfunction 

::tcltest::test [::testname::curname] {} -body { 
    puts [::testname::curname] 
} -cleanup { 
    incr ::testname::minor 
} 

::tcltest::test [::testname::curname] {} -body { 
    puts [::testname::curname] 
} -cleanup { 
    incr ::testname::minor 
} 

または

oo::object create testname 
oo::objdefine testname { 
    variable name major minor 
    method init {nam {maj 1} {min 0}} { 
     set name $nam 
     set major $maj 
     set minor $min 
    } 
    method name val {set name $val} 
    method major val {set minor 0 ; set major $val} 
    method minor val {set minor $val} 
    method bump {} {incr minor} 
    method curname {} {return $name-$major.$minor} 
} 

testname init testfunction 

::tcltest::test [testname curname] {} -body { 
    puts [testname curname] 
} -cleanup { 
    testname bump 
} 

::tcltest::test [testname curname] {} -body { 
    puts [testname curname] 
} -cleanup { 
    testname bump 
} 

（これは、私が実際に使用していない何かを、コードを即興され、それが一度テストされ、少なくとも実行を行います。）

ドキュメント： create (method of oo::class)、 incr 、 method (object configuration subcommand), namespace, oo::objdefine, oo::object、 package、 proc、 puts、 return、 set、 tcltest (package)、 variable (object slot subcommand)、 variable