diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-10-23 07:21:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-10-23 07:21:41 (GMT) |
| commit | ed0b129f932f0c4247574dec0afc0a0ecb5077a1 (patch) | |
| tree | 5f2de1d6814ccfd4c608a72722501ce59915f46f | |
| parent | 42939d89e12b3dcea975198baba5fdbdc1c66273 (diff) | |
| download | tk-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.test | 4 |
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 |