From 109f411118f69594208f2f464d71d9b62a384258 Mon Sep 17 00:00:00 2001
From: hershey <hershey>
Date: Wed, 12 Aug 1998 16:08:26 +0000
Subject: skips tests that require tktest executable

---
 tests/macEmbed.test | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/macEmbed.test b/tests/macEmbed.test
index f912dcd..b85e01a 100644
--- a/tests/macEmbed.test
+++ b/tests/macEmbed.test
@@ -30,6 +30,13 @@ test macEmbed-1.2 {TkpUseWindow procedure, bad window identifier} {
     catch {destroy .t}
     list [catch {toplevel .t -use 47} msg] $msg
 } {1 {The window ID 47 does not correspond to a valid Tk Window.}}
+
+if {[string compare testembed [info commands testembed]] != 0} {
+    puts "This application hasn't been compiled with the testembed command,"
+    puts "therefore I am skipping all of these tests."
+    return
+}
+
 test macEmbed-1.3 {TkpUseWindow procedure, creating Container records} {
     eval destroy [winfo child .]
     frame .f1 -container 1 -width 200 -height 50
-- 
cgit v0.12