tcltest -setupスクリプトから-bodyスクリプトに変数を渡します。

Question

私はtcltestを使用して、私のTCL procsの簡単な単体テストを記述しています。
-bodyスクリプトの中に-setupスクリプトの変数を表示する方法があるのでしょうか？多分upvar/uplevelを何とか使っていますか？
これまでのところ、私は（「テストファイルエラー：読むことはできません 『N』を：そのような変数を」）：エラーが発生しない素朴なアプローチを試してみました

Answer 1

変数をtcltest -setupと-bodyスクリプトにしています同じコンテキストで評価されます。これは、tcltest::testを呼び出すコンテキストとまったく同じコンテキストです。定義された-cleanupスクリプトも、そのコンテキストで評価されます。内部的には、Tclのuplevelコマンドがこれを強制するために使用され、のTcl自身のテストスイートのがこれに依存しているので、動作することは間違いありません。

何かが続いています。名前空間でこのコードを実行していますか？ Tclの（不可解な-で-この-点）可変解像度規則の恐ろしい設計ミスを避けるために

set N 4 

：

variable N 4 

の代わり：あなたがいる場合は、おそらくで変数を作成します。