From ed0b129f932f0c4247574dec0afc0a0ecb5077a1 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 23 Oct 2015 07:21:41 +0000
Subject: Fix [908b78de9a] for OS X/X11 - which apparently doesn't set
 ::env(USERNAME) - as well.

---
 tests/winDialog.test | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/winDialog.test b/tests/winDialog.test
index 481ab42..24441cf 100644
--- a/tests/winDialog.test
+++ b/tests/winDialog.test
@@ -512,13 +512,13 @@ test winDialog-5.12.2 {tk_getSaveFile: initial directory: ~user} -constraints {
 
     unset -nocomplain x
     start {set x [tk_getSaveFile \
-                      -initialdir ~$::env(USERNAME) \
+                      -initialdir ~$::tcl_platform(user) \
                       -initialfile "5 12 2" -title Foo]}
     then {
         Click ok
     }
     return $x
-} -result [file normalize [file join ~$::env(USERNAME) "5 12 2"]]
+} -result [file normalize [file join ~$::tcl_platform(user) "5 12 2"]]
 
 test winDialog-5.12.3 {tk_getSaveFile: initial directory: .} -constraints {
     nt testwinevent
-- 
cgit v0.12