diff options
| author | patthoyts <patthoyts@noemail.net> | 2007-09-18 10:39:50 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@noemail.net> | 2007-09-18 10:39:50 (GMT) |
| commit | 699d23ed13856da51ec5638988606d6d04b97c27 (patch) | |
| tree | ac5c64c80e92d617f05d733cbf4ea15fdc97d681 /tests/ttk | |
| parent | 1fe8685571651ec772e89d6c4c625542fbf1ba5c (diff) | |
| download | tk-699d23ed13856da51ec5638988606d6d04b97c27.zip tk-699d23ed13856da51ec5638988606d6d04b97c27.tar.gz tk-699d23ed13856da51ec5638988606d6d04b97c27.tar.bz2 | |
Made ttk/all.tcl be the same as tk's all.tcl and make use of file normalize
FossilOrigin-Name: 40dd5ce77142909d5a2c3293798be885cf20174f
Diffstat (limited to 'tests/ttk')
| -rw-r--r-- | tests/ttk/all.tcl | 28 |
1 files changed, 18 insertions, 10 deletions
diff --git a/tests/ttk/all.tcl b/tests/ttk/all.tcl index 75aa035..d2fab16 100644 --- a/tests/ttk/all.tcl +++ b/tests/ttk/all.tcl @@ -1,15 +1,23 @@ +# all.tcl -- # -# source all tests. +# This file contains a top-level script to run all of the ttk +# tests. Execute it by invoking "source all.tcl" when running tktest +# in this directory. # -package require tcltest 2.1 - -package require Tk 8.5 ;# This is the Tk test suite; fail early if no Tk! - -tcltest::configure -testdir [file join [pwd] [file dirname [info script]]] +# Copyright (c) 2007 by the Tk developers. +# +# 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.2 2007/09/18 10:39:52 patthoyts Exp $ -eval tcltest::configure $::argv +package require Tcl 8.5 +package require tcltest 2.2 +package require Tk ;# This is the Tk test suite; fail early if no Tk! +tcltest::configure {*}$argv +tcltest::configure -testdir [file normalize [file dirname [info script]]] +tcltest::configure -loadfile \ + [file join [file dirname [tcltest::testsDirectory]] constraints.tcl] +tcltest::configure -singleproc 1 tcltest::runAllTests -if {![catch { package present Tk }]} { - destroy . -} |