From a3695c582f90e939b56d57f790c05abe311657ac Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 14 Feb 2005 09:24:41 +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 a1d6d3d..3326c50 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 dbfe6c6..af210c3 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.7 2002/07/14 05:48:45 dgp Exp $ +# RCS: @(#) $Id: all.tcl,v 1.7.2.1 2005/02/14 09:24:42 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 -singleproc 1 eval tcltest::configure $argv -- cgit v0.12