summaryrefslogtreecommitdiffstats
path: root/library/tcltest/tcltest.tcl
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-06-28 19:22:55 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-06-28 19:22:55 (GMT)
commit886ba893b55833fb102f7849f51540124df6ca58 (patch)
treede92d23cf99e1dac2ca651e815cad3e44dd71135 /library/tcltest/tcltest.tcl
parent162d8a6442e7b0ff9c4e72433af6f403b6c61de8 (diff)
downloadtcl-886ba893b55833fb102f7849f51540124df6ca58.zip
tcl-886ba893b55833fb102f7849f51540124df6ca58.tar.gz
tcl-886ba893b55833fb102f7849f51540124df6ca58.tar.bz2
* docs/tcltest.n: Doc revisions in progress.
* library/tcltest/tcltest.tcl: Corrected -testdir default value. Was not reliable, and disagreed with docs! Thanks to Hemang Lavana. [Bug 575150]
Diffstat (limited to 'library/tcltest/tcltest.tcl')
-rw-r--r--library/tcltest/tcltest.tcl16
1 files changed, 12 insertions, 4 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 0899364..2c2f113 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -16,7 +16,7 @@
# Contributions from Don Porter, NIST, 2002. (not subject to US copyright)
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.59 2002/06/27 17:31:05 dgp Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.60 2002/06/28 19:22:55 dgp Exp $
package require Tcl 8.3 ;# uses [glob -directory]
namespace eval tcltest {
@@ -406,11 +406,19 @@ namespace eval tcltest {
variable OptionControlledVariables
set Usage($option) $usage
set Verify($option) $verify
- set Option($option) [$verify $value]
+ if {[catch {$verify $value} msg]} {
+ return -code error $msg
+ } else {
+ set Option($option) $msg
+ }
if {[string length $varName]} {
variable $varName
if {[info exists $varName]} {
- set Option($option) [$verify [set $varName]]
+ if {[catch {$verify [set $varName]} msg]} {
+ return -code error $msg
+ } else {
+ set Option($option) $msg
+ }
unset $varName
}
namespace eval [namespace current] \
@@ -658,7 +666,7 @@ namespace eval tcltest {
# Tests should not rely on the current working directory.
# Files that are part of the test suite should be accessed relative
# to [testsDirectory]
- Option -testdir [file join [file dirname [info script]] .. .. tests] {
+ Option -testdir [workingDirectory] {
Search tests in the specified directory.
} AcceptDirectory testsDirectory
trace variable Option(-testdir) w \