summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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
}