From fa28977e015c318710d923a910bef4b5a4f82d51 Mon Sep 17 00:00:00 2001
From: jenn <jenn>
Date: Wed, 18 Aug 1999 00:31:50 +0000
Subject: Run these tests only if "testmetrics" is defined (i.e. tktest is
 being used).

---
 tests/scrollbar.test | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/tests/scrollbar.test b/tests/scrollbar.test
index 0328043..6495034 100644
--- a/tests/scrollbar.test
+++ b/tests/scrollbar.test
@@ -7,12 +7,20 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: scrollbar.test,v 1.3 1999/04/16 01:51:40 stanton Exp $
+# RCS: @(#) $Id: scrollbar.test,v 1.4 1999/08/18 00:31:50 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
 }
 
+if {[info commands testmetrics] == {}} {
+    puts "This application hasn't been compiled with the \"testmetrics\""
+    puts "command, so I can't run this test.  Are you sure you're using"
+    puts "tktest instead of wish?"
+    ::tcltest::cleanupTests
+    return
+}
+
 foreach i [winfo children .] {
     destroy $i
 }
-- 
cgit v0.12