diff options
-rw-r--r-- | tests/cmdAH.test | 13 |
1 files 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 |