From 12f23af5456f4a87b8bc4d58f9dcfc0edf2c9676 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 7 Oct 2022 15:19:36 +0000
Subject: On Windows, env(HOME) should be handled case-insensitive in fCmd.test

---
 tests/fCmd.test | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/tests/fCmd.test b/tests/fCmd.test
index 73118f4..8c9f799 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -2598,8 +2598,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}
@@ -2640,8 +2640,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}
@@ -2655,8 +2655,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}
@@ -2679,8 +2679,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
-- 
cgit v0.12