diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-09-12 19:34:23 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-09-12 19:34:23 (GMT) |
| commit | 3b982165aff1858cc7a0a4ea123cd74d3704f872 (patch) | |
| tree | e64dd9963d3ba237144473595c21da578a3c9c6d | |
| parent | a57cd978a5741e7948c7a8676307ca11c8a9fddb (diff) | |
| download | tcl-3b982165aff1858cc7a0a4ea123cd74d3704f872.zip tcl-3b982165aff1858cc7a0a4ea123cd74d3704f872.tar.gz tcl-3b982165aff1858cc7a0a4ea123cd74d3704f872.tar.bz2 | |
cmdAH.test (win-only): rewrite test to prefer SystemRoot (readonly) instead of windir to check windows directory is not owned, bug [7de2d722bd]
| -rw-r--r-- | tests/cmdAH.test | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index b60f658..0f3ca7c 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -1349,8 +1349,12 @@ test cmdAH-25.2.1 {Tcl_FileObjCmd: owned} -constraints unix -setup { test cmdAH-25.3 {Tcl_FileObjCmd: owned} {unix notRoot} { file owned / } 0 -test cmdAH-25.3.1 {Tcl_FileObjCmd: owned} -constraints {win knownMsvcBug} -body { - file owned $env(windir) +test cmdAH-25.3.1 {Tcl_FileObjCmd: owned} -constraints win -body { + if {[info exists env(SystemRoot)]} { + file owned $env(SystemRoot) + } else { + file owned $env(windir) + } } -result 0 test cmdAH-25.4 {Tcl_FileObjCmd: owned} -body { file owned nosuchfile |