diff options
| author | ashok <ashok> | 2016-07-09 11:13:48 (GMT) |
|---|---|---|
| committer | ashok <ashok> | 2016-07-09 11:13:48 (GMT) |
| commit | d6ae741f7f6ad171b2cc543a32163aed833dd81c (patch) | |
| tree | 3d67e6cc20a391098bb98a6f2cf76e850dc861e0 /tests/cmdAH.test | |
| parent | 48e3873f199817b52d54a4d802966b508917d200 (diff) | |
| download | tcl-d6ae741f7f6ad171b2cc543a32163aed833dd81c.zip tcl-d6ae741f7f6ad171b2cc543a32163aed833dd81c.tar.gz tcl-d6ae741f7f6ad171b2cc543a32163aed833dd81c.tar.bz2 | |
Bugfix [3613671]. file owned implementation for Windows.
Diffstat (limited to 'tests/cmdAH.test')
| -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 { |