Merge 8.7

1 files changed, 8 insertions, 5 deletions

diff --git a/tests/fCmd.test b/tests/fCmd.test
index 5b70c81..6a909f8 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -22,7 +22,7 @@ cd [temporaryDirectory]
 
 testConstraint testsetplatform [llength [info commands testsetplatform]]
 testConstraint testchmod [llength [info commands testchmod]]
-testConstraint win10 0
+testConstraint winLessThan10 0
 # Don't know how to determine this constraint correctly
 testConstraint notNetworkFilesystem 0
 testConstraint reg 0
@@ -63,8 +63,9 @@ if {[testConstraint unix]} {
     }
 }
 
-if {[testConstraint win] && $::tcl_platform(osVersion) >= 10.0} {
-    testConstraint win10 1
+# Also used in winFCmd...
+if {[testConstraint win] && $::tcl_platform(osVersion) < 10.0} {
+    testConstraint winLessThan10 1
 }
 
 testConstraint darwin9 [expr {
@@ -2313,13 +2314,15 @@ test fCmd-28.7 {file link: source already exists} -setup {
 } -returnCodes error -cleanup {
     cd [workingDirectory]
 } -result {could not create new link "abc.file": that path already exists}
-test fCmd-28.8 {file link} -constraints {linkFile win10} -setup {
+# In Windows 10 developer mode, we _can_ create symbolic links to files!
+test fCmd-28.8 {file link} -constraints {linkFile winLessThan10} -setup {
     cd [temporaryDirectory]
 } -body {
     file link -symbolic abc.link abc.file
 } -cleanup {
+    file delete -force abc.link
     cd [workingDirectory]
-} -result abc.file
+} -returnCodes error -result {could not create new link "abc.link" pointing to "abc.file": invalid argument}
 test fCmd-28.9 {file link: success with file} -constraints {linkFile} -setup {
     cd [temporaryDirectory]
     file delete -force abc.link