diff options
Diffstat (limited to 'tests/all')
| -rw-r--r-- | tests/all | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -2,14 +2,14 @@ # tests. Execute it by invoking "source all" when running tclTest # in this directory. # -# RCS: @(#) $Id: all,v 1.3 1998/11/19 21:46:59 hershey Exp $ +# RCS: @(#) $Id: all,v 1.4 1998/12/04 04:18:20 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 requiredSourceFiles [list autoMkindex.tcl remote.tcl defs] # # Set the TMP_DIR to pwd or the arg of -tmpdir, if given. @@ -18,12 +18,12 @@ set requiredSourceFiles [list autoMkindex.tcl remote.tcl] 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" + if {[catch {file mkdir $TMP_DIR} msg]} { + error "bad argument \"$flag(-tmpdir)\" to -tmpdir:\n$msg" } file mkdir $TMP_DIR } elseif {![file isdir $TMP_DIR]} { - error "$TMP_DIR already exists but is not a directory" + error "bad argument \"$flag(-tmpdir)\" to -tmpdir:\n$TMP_DIR is not a directory" } if {[string compare [file pathtype $TMP_DIR] absolute] != 0} { set TMP_DIR [file join [pwd] $TMP_DIR] @@ -32,7 +32,7 @@ if {[info exists flag(-tmpdir)]} { } # -# copy the required source files to the current dir. +# copy each required source file to the current dir (if it's not already there). # if {[string compare $TESTS_DIR [pwd]] != 0} { @@ -52,13 +52,13 @@ if {$tcl_platform(os) == "Win32s"} { foreach file [lsort [glob $globPattern]] { set tail [file tail $file] - if [string match l.*.test $tail] { - # This is an SCCS lockfile + if {[string match l.*.test $tail]} { + # This is an SCCS lockfile; ignore it continue } puts stdout $tail - if [catch {source $file} msg] { - puts $msg + if {[catch {source $file} msg]} { + puts stdout $msg } } |