From 3569658900ea07e63e3fbea4cd266011a34552ac Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 14 Feb 2005 09:21:11 +0000 Subject: Encourage missing-DISPLAY errors to be early in run of test suite. --- ChangeLog | 6 ++++++ tests/all.tcl | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 7fc0faa..462da0e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2005-02-14 Donal K. Fellows + + * tests/all.tcl: Add a [package require Tk] so that a missing + display causes an early failure and keeps the error trace short. + Issue observed in [FRQ 11122147], even though that's unrelated. + 2005-02-11 Jeff Hobbs * library/panedwindow.tcl (::tk::panedwindow::Cursor): check diff --git a/tests/all.tcl b/tests/all.tcl index 56d570f..770ee9c 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -9,10 +9,11 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: all.tcl,v 1.8 2003/04/01 21:06:14 dgp Exp $ +# RCS: @(#) $Id: all.tcl,v 1.9 2005/02/14 09:21:13 dkf Exp $ package require Tcl 8.4 package require tcltest 2.1 +package require Tk ;# This is the Tk test suite; fail early if no Tk! tcltest::configure -testdir [file join [pwd] [file dirname [info script]]] tcltest::configure -loadfile \ [file join [tcltest::testsDirectory] constraints.tcl] -- cgit v0.12