summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2007-09-18 10:39:50 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2007-09-18 10:39:50 (GMT)
commit98778f238b4360d619695e29e154d1707ff8d76c (patch)
treeac5c64c80e92d617f05d733cbf4ea15fdc97d681 /tests
parent1c3a9872df1a603a1182b1bb19f9ca60cc3b1d77 (diff)
downloadtk-98778f238b4360d619695e29e154d1707ff8d76c.zip
tk-98778f238b4360d619695e29e154d1707ff8d76c.tar.gz
tk-98778f238b4360d619695e29e154d1707ff8d76c.tar.bz2
Made ttk/all.tcl be the same as tk's all.tcl and make use of file normalize
Diffstat (limited to 'tests')
-rw-r--r--tests/all.tcl4
-rw-r--r--tests/ttk/all.tcl28
2 files changed, 20 insertions, 12 deletions
diff --git a/tests/all.tcl b/tests/all.tcl
index 11eaece..426d698 100644
--- a/tests/all.tcl
+++ b/tests/all.tcl
@@ -9,13 +9,13 @@
# 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 $
+# RCS: @(#) $Id: all.tcl,v 1.12 2007/09/18 10:39:52 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 -testdir [file normalize [file dirname [info script]]]
tcltest::configure -loadfile \
[file join [tcltest::testsDirectory] constraints.tcl]
tcltest::configure -singleproc 1
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 .
-}