From a67007bd0d83ef16a042e3f0a85ec671bd862591 Mon Sep 17 00:00:00 2001
From: hershey <hershey>
Date: Wed, 12 Aug 1998 15:34:51 +0000
Subject: returns if testcbind is not defined

---
 tests/bind.test | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/tests/bind.test b/tests/bind.test
index 18de465..f03a95d 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -216,6 +216,12 @@ test bind-5.1 {Tk_CreateBindingTable procedure} {
 } {}
 
 
+if {[string compare testcbind [info commands testcbind]] != 0} {
+    puts "This application hasn't been compiled with the testcbind command,"
+    puts "therefore I am skipping all of these tests."
+    return
+}
+
 test bind-6.1 {Tk_DeleteBindTable procedure} {
     catch {destroy .b.c}
     canvas .b.c
-- 
cgit v0.12