returns if testwrapper is not defined

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
 }