Merge 8.7

1 files changed, 8 insertions, 8 deletions

diff --git a/tests/fCmd.test b/tests/fCmd.test
index dbbc154..811beb3 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -2697,8 +2697,8 @@ test fCmd-31.6 {file home USER} -body {
     # Note - as in 8.x this form does NOT necessarily give same result as
     # env(HOME) even when user is current user. Assume result contains user
     # name, else not sure how to check
-    file home $::tcl_platform(user)
-} -match glob -result "*$::tcl_platform(user)*"
+    string tolower [file home $::tcl_platform(user)]
+} -match glob -result [string tolower "*$::tcl_platform(user)*"]
 test fCmd-31.7 {file home UNKNOWNUSER} -body {
     file home nosuchuser
 } -returnCodes error -result {user "nosuchuser" doesn't exist}
@@ -2739,8 +2739,8 @@ test fCmd-32.5 {file tildeexpand ~USER} -body {
     # Note - as in 8.x this form does NOT necessarily give same result as
     # env(HOME) even when user is current user. Assume result contains user
     # name, else not sure how to check
-    file tildeexpand ~$::tcl_platform(user)
-} -match glob -result "*$::tcl_platform(user)*"
+    string tolower [file tildeexpand ~$::tcl_platform(user)]
+} -match glob -result [string tolower "*$::tcl_platform(user)*"]
 test fCmd-32.6 {file tildeexpand ~UNKNOWNUSER} -body {
     file tildeexpand ~nosuchuser
 } -returnCodes error -result {user "nosuchuser" doesn't exist}
@@ -2754,8 +2754,8 @@ test fCmd-32.9 {file tildeexpand ~USER/bar} -body {
     # Note - as in 8.x this form does NOT necessarily give same result as
     # env(HOME) even when user is current user. Assume result contains user
     # name, else not sure how to check
-    file tildeexpand ~$::tcl_platform(user)/bar
-} -match glob -result "*$::tcl_platform(user)*/bar"
+    string tolower [file tildeexpand ~$::tcl_platform(user)/bar]
+} -match glob -result [string tolower "*$::tcl_platform(user)*/bar"]
 test fCmd-32.10 {file tildeexpand ~UNKNOWNUSER} -body {
     file tildeexpand ~nosuchuser/foo
 } -returnCodes error -result {user "nosuchuser" doesn't exist}
@@ -2778,8 +2778,8 @@ test fCmd-32.16 {file tildeexpand ~USER\\bar} -body {
     # Note - as in 8.x this form does NOT necessarily give same result as
     # env(HOME) even when user is current user. Assume result contains user
     # name, else not sure how to check
-    file tildeexpand ~$::tcl_platform(user)\\bar
-} -constraints win -match glob -result "*$::tcl_platform(user)*/bar"
+    string tolower [file tildeexpand ~$::tcl_platform(user)\\bar]
+} -constraints win -match glob -result [string tolower "*$::tcl_platform(user)*/bar"]
 
 
 # cleanup