diff options
Diffstat (limited to 'tests/all.tcl')
-rw-r--r-- | tests/all.tcl | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 59890a8..11eaece 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -1,22 +1,22 @@ -# all.tcl --
-#
-# This file contains a top-level script to run all of the Tk
-# tests. Execute it by invoking "source all.tcl" when running tktest
-# in this directory.
-#
-# Copyright (c) 1998-1999 by Scriptics Corporation.
-#
-# 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.10 2007/08/18 15:39:03 dkf Exp $
-
-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 join [pwd] [file dirname [info script]]]
-tcltest::configure -loadfile \
- [file join [tcltest::testsDirectory] constraints.tcl]
-tcltest::configure -singleproc 1
-tcltest::runAllTests
+# all.tcl -- +# +# This file contains a top-level script to run all of the Tk +# tests. Execute it by invoking "source all.tcl" when running tktest +# in this directory. +# +# Copyright (c) 1998-1999 by Scriptics Corporation. +# +# 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.11 2007/08/21 20:30:27 patthoyts Exp $ + +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 join [pwd] [file dirname [info script]]] +tcltest::configure -loadfile \ + [file join [tcltest::testsDirectory] constraints.tcl] +tcltest::configure -singleproc 1 +tcltest::runAllTests |