summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjenn <jenn>1999-08-18 00:31:50 (GMT)
committerjenn <jenn>1999-08-18 00:31:50 (GMT)
commitfa28977e015c318710d923a910bef4b5a4f82d51 (patch)
tree7567b493783eb7c5912a58c4173d9e33344ec9f6 /tests
parent198f4e16a2f7c8479b95ae9132c9df3cd42aa9d2 (diff)
downloadtk-fa28977e015c318710d923a910bef4b5a4f82d51.zip
tk-fa28977e015c318710d923a910bef4b5a4f82d51.tar.gz
tk-fa28977e015c318710d923a910bef4b5a4f82d51.tar.bz2
Run these tests only if "testmetrics" is defined (i.e. tktest is
being used).
Diffstat (limited to 'tests')
-rw-r--r--tests/scrollbar.test10
1 files changed, 9 insertions, 1 deletions
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
}