summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-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