summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhershey <hershey>1998-11-19 21:46:59 (GMT)
committerhershey <hershey>1998-11-19 21:46:59 (GMT)
commit07929b5fe5002a66ab02380e3ed56d449af33308 (patch)
tree1b06987bcb184edbdd6cb41abc80d4c899eb839e /tests
parent2ca2b6fdac8c01b6b4157b9840d47781024e21f0 (diff)
downloadtcl-07929b5fe5002a66ab02380e3ed56d449af33308.zip
tcl-07929b5fe5002a66ab02380e3ed56d449af33308.tar.gz
tcl-07929b5fe5002a66ab02380e3ed56d449af33308.tar.bz2
all file can now be run from any working dir.
Diffstat (limited to 'tests')
-rw-r--r--tests/all65
1 files changed, 57 insertions, 8 deletions
diff --git a/tests/all b/tests/all
index 03847de..161ba98 100644
--- a/tests/all
+++ b/tests/all
@@ -2,21 +2,70 @@
# tests. Execute it by invoking "source all" when running tclTest
# in this directory.
#
-# RCS: @(#) $Id: all,v 1.2 1998/09/14 18:40:07 stanton Exp $
+# RCS: @(#) $Id: all,v 1.3 1998/11/19 21:46:59 hershey Exp $
+
+set TESTS_DIR [file join [pwd] [file dirname [info script]]]
+source [file join $TESTS_DIR defs]
+set currentDir [pwd]
+
+catch {array set flag $argv}
+set requiredSourceFiles [list autoMkindex.tcl remote.tcl]
+
+#
+# Set the TMP_DIR to pwd or the arg of -tmpdir, if given.
+#
+
+if {[info exists flag(-tmpdir)]} {
+ set TMP_DIR $flag(-tmpdir)
+ if {![file exists $TMP_DIR]} {
+ if {[catch {file mkdir $TMP_DIR}]} {
+ error "could not create directory $TMP_DIR"
+ }
+ file mkdir $TMP_DIR
+ } elseif {![file isdir $TMP_DIR]} {
+ error "$TMP_DIR already exists but is not a directory"
+ }
+ if {[string compare [file pathtype $TMP_DIR] absolute] != 0} {
+ set TMP_DIR [file join [pwd] $TMP_DIR]
+ }
+ cd $TMP_DIR
+}
+
+#
+# copy the required source files to the current dir.
+#
+
+if {[string compare $TESTS_DIR [pwd]] != 0} {
+
+ foreach file $requiredSourceFiles {
+ if {![file exists $file]} {
+ catch {file copy [file join $TESTS_DIR $file] .}
+ }
+ }
+}
if {$tcl_platform(os) == "Win32s"} {
- set files [glob *.tes]
+ set globPattern [file join $TESTS_DIR *.tes]
} else {
- set files [glob *.test]
+ set globPattern [file join $TESTS_DIR *.test]
}
-foreach i [lsort $files] {
- if [string match l.*.test $i] {
+foreach file [lsort [glob $globPattern]] {
+ set tail [file tail $file]
+ if [string match l.*.test $tail] {
# This is an SCCS lockfile
continue
}
- puts stdout $i
- if [catch {source $i} msg] {
+ puts stdout $tail
+ if [catch {source $file} msg] {
puts $msg
- }
+ }
+}
+
+# remove the required source files from the current dir.
+if {[info exists TMP_DIR]} {
+ foreach file $requiredSourceFiles {
+ catch {file delete -force $file}
+ }
+ cd $currentDir
}