diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2015-10-23 07:21:41 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2015-10-23 07:21:41 (GMT) |
| commit | 531d62f5a16f5037e02c6b33780c974adb001436 (patch) | |
| tree | 5f2de1d6814ccfd4c608a72722501ce59915f46f | |
| parent | afa4fe3b37302a42918ecdbb2f0afae53bc3142c (diff) | |
| download | tk-531d62f5a16f5037e02c6b33780c974adb001436.zip tk-531d62f5a16f5037e02c6b33780c974adb001436.tar.gz tk-531d62f5a16f5037e02c6b33780c974adb001436.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 |