From ba42e43e970a3a2f5299df4f36fb283c7cc9526b Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Fri, 18 May 2018 06:18:56 +0000
Subject: Add test filesystem-1.30.1 checking file normalize
 ~$::tcl_platform(user). This test should currently fail when the computer is
 connected to a Windows domain controller, due to [9e6b569963]: file normalize
 ~user fails on Windows

---
 tests/fileSystem.test | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index b805780..edc1df2 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -264,6 +264,9 @@ removeDirectory dir.dir
 test filesystem-1.30 {normalisation of nonexistent user} -body {
     file normalize ~noonewiththisname
 } -returnCodes error -result {user "noonewiththisname" doesn't exist}
+test filesystem-1.30.1 {normalisation of existing user} -body {
+    catch {file normalize ~$::tcl_platform(user)}
+} -result {0}
 test filesystem-1.31 {link normalisation: link near filesystem root} {testsetplatform} {
     testsetplatform unix
     file normalize /foo/../bar
-- 
cgit v0.12