From c4467af9853658d8484751bc0ba0e994f8de210b Mon Sep 17 00:00:00 2001
From: jenn <jenn>
Date: Mon, 12 Jul 1999 21:03:48 +0000
Subject: Catch the cd that sets up the initial value for the testsDirectory
 variable.

---
 library/tcltest/tcltest.tcl    | 4 ++--
 library/tcltest1.0/tcltest.tcl | 4 ++--
 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
 
-- 
cgit v0.12