diff options
author | hershey <hershey@noemail.net> | 1998-08-12 15:35:15 (GMT) |
---|---|---|
committer | hershey <hershey@noemail.net> | 1998-08-12 15:35:15 (GMT) |
commit | 7bc2ea389b9b325c84a85b282edc005f4503be72 (patch) | |
tree | ace04f3af23c4b4b0d24a38e674de3c418175e30 /tests | |
parent | c6256b2656624842074560fa78186e346ff2bc44 (diff) | |
download | tk-7bc2ea389b9b325c84a85b282edc005f4503be72.zip tk-7bc2ea389b9b325c84a85b282edc005f4503be72.tar.gz tk-7bc2ea389b9b325c84a85b282edc005f4503be72.tar.bz2 |
returns if testwrapper is not defined
FossilOrigin-Name: e18ca0e2b139a579ae511aa3e000d2262b5cefdc
Diffstat (limited to 'tests')
-rw-r--r-- | tests/id.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/id.test b/tests/id.test index 2589d48..31249da 100644 --- a/tests/id.test +++ b/tests/id.test @@ -13,6 +13,12 @@ if {[info procs test] != "test"} { source defs } +if {[string compare testwrapper [info commands testwrapper]] != 0} { + puts "This application hasn't been compiled with the testwrapper command," + puts "therefore I am skipping all of these tests." + return +} + foreach i [winfo children .] { destroy $i } |