summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorjenn <jenn>1999-07-12 21:03:48 (GMT)
committerjenn <jenn>1999-07-12 21:03:48 (GMT)
commitc4467af9853658d8484751bc0ba0e994f8de210b (patch)
tree5a6169c2a297ac7bbc9627ded7ef9c337069331e /library
parent828449bf97b0b3a2e3c8d3cd0583a041ba0766eb (diff)
downloadtcl-c4467af9853658d8484751bc0ba0e994f8de210b.zip
tcl-c4467af9853658d8484751bc0ba0e994f8de210b.tar.gz
tcl-c4467af9853658d8484751bc0ba0e994f8de210b.tar.bz2
Catch the cd that sets up the initial value for the testsDirectory variable.
Diffstat (limited to 'library')
-rw-r--r--library/tcltest/tcltest.tcl4
-rw-r--r--library/tcltest1.0/tcltest.tcl4
2 files changed, 4 insertions, 4 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 8640d67..b94c739 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -12,7 +12,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.5 1999/07/09 00:01:02 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.6 1999/07/12 21:03:48 jenn Exp $
package provide tcltest 1.0
@@ -137,7 +137,7 @@ namespace eval tcltest {
# ::tcltest::testsDirectory.
set oDir [pwd]
- cd [file join [file dirname [info library]] tests]
+ catch {cd [file join [file dirname [info script]] .. .. tests]}
variable testsDirectory [pwd]
cd $oDir
diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl
index 8640d67..b94c739 100644
--- a/library/tcltest1.0/tcltest.tcl
+++ b/library/tcltest1.0/tcltest.tcl
@@ -12,7 +12,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.5 1999/07/09 00:01:02 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.6 1999/07/12 21:03:48 jenn Exp $
package provide tcltest 1.0
@@ -137,7 +137,7 @@ namespace eval tcltest {
# ::tcltest::testsDirectory.
set oDir [pwd]
- cd [file join [file dirname [info library]] tests]
+ catch {cd [file join [file dirname [info script]] .. .. tests]}
variable testsDirectory [pwd]
cd $oDir