diff options
| author | ashok <ashok> | 2016-07-09 11:13:48 (GMT) |
|---|---|---|
| committer | ashok <ashok> | 2016-07-09 11:13:48 (GMT) |
| commit | 673b7ecc2109080c1d8ab85bede83600d5dfff1e (patch) | |
| tree | 3d67e6cc20a391098bb98a6f2cf76e850dc861e0 /tests | |
| parent | 8435bb9d68cdb26190ded1caca280eaac0314444 (diff) | |
| download | tcl-673b7ecc2109080c1d8ab85bede83600d5dfff1e.zip tcl-673b7ecc2109080c1d8ab85bede83600d5dfff1e.tar.gz tcl-673b7ecc2109080c1d8ab85bede83600d5dfff1e.tar.bz2 | |
Bugfix [3613671]. file owned implementation for Windows.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/cmdAH.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 6240500..c74bddb 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -1296,6 +1296,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 -body { + file owned $env(windir) +} -result 0 +test cmdAH-25.4 {Tcl_FileObjCmd: owned} -body { + file owned nosuchfile +} -result 0 # readlink test cmdAH-26.1 {Tcl_FileObjCmd: readlink} -returnCodes error -body { |