summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-10-23 07:21:41 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-10-23 07:21:41 (GMT)
commited0b129f932f0c4247574dec0afc0a0ecb5077a1 (patch)
tree5f2de1d6814ccfd4c608a72722501ce59915f46f
parent42939d89e12b3dcea975198baba5fdbdc1c66273 (diff)
downloadtk-ed0b129f932f0c4247574dec0afc0a0ecb5077a1.zip
tk-ed0b129f932f0c4247574dec0afc0a0ecb5077a1.tar.gz
tk-ed0b129f932f0c4247574dec0afc0a0ecb5077a1.tar.bz2
Fix [908b78de9a] for OS X/X11 - which apparently doesn't set ::env(USERNAME) - as well.
-rw-r--r--tests/winDialog.test4
1 files 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