From 21aa86543d6e0ee2be6f71c0ba9039863a1b01f0 Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Tue, 24 Nov 1998 01:16:16 +0000
Subject: fixed broken non-portable tests

---
 tests/cmdAH.test | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index d3c054f..bab5c48 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -9,11 +9,12 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: cmdAH.test,v 1.1.2.3 1998/10/21 20:40:07 stanton Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.1.2.4 1998/11/24 01:16:16 stanton Exp $
 
 if {[string compare test [info procs test]] == 1} then {source defs}
 
 global env
+set old [pwd]
 catch {set platform [testgetplatform]}
 
 test cmdAH-0.1 {Tcl_BreakObjCmd, errors} {
@@ -1378,9 +1379,9 @@ test cmdAH-28.10 {Tcl_FileObjCmd: stat} {pc nonPortable} {
     # stat of root directory was failing.
     # don't care about answer, just that test runs.
 
-    file stat //bisque/tcl stat
-    file stat //bisque/tcl/ stat
-    file stat //bisque/tcl/. stat
+    file stat //pop/$env(USERNAME) stat
+    file stat //pop/$env(USERNAME)/ stat
+    file stat //pop/$env(USERNAME)/. stat
 } {}    
 test cmdAH-28.11 {Tcl_FileObjCmd: stat} {pc nonPortable} {
     # stat of network directory was returning id of current local drive.
@@ -1388,7 +1389,7 @@ test cmdAH-28.11 {Tcl_FileObjCmd: stat} {pc nonPortable} {
     set old [pwd]
     cd c:/
 
-    file stat //bisque/tcl stat
+    file stat //pop/$env(USERNAME) stat
     cd $old
     expr {$stat(dev) == 2}
 } 0
@@ -1461,5 +1462,7 @@ file delete -force dir.file
 file delete gorp.file
 file delete link.file
 
+cd $old
+
 return
 
-- 
cgit v0.12