diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-19 17:29:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-19 17:29:39 (GMT) |
| commit | 460dcd4bf3f9fadbd240dfcf2831278cb264e3bf (patch) | |
| tree | b00f7f86b33280c023fbe908510435241ef9f314 /tests/winDialog.test | |
| parent | 7e7435a12f36a5146680ece7bff1f4f48f407944 (diff) | |
| parent | bcb71c3efaadfc55dcd742522aaf331a40b9a7ec (diff) | |
| download | tk-little.zip tk-little.tar.gz tk-little.tar.bz2 | |
Merge 8.6.5 release.little
Diffstat (limited to 'tests/winDialog.test')
| -rw-r--r-- | tests/winDialog.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/winDialog.test b/tests/winDialog.test index 481ab42..c8c36bf 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 @@ -594,7 +594,7 @@ test winDialog-5.12.6 {tk_getSaveFile: initial directory: relative} -constraints test winDialog-5.12.7 {tk_getOpenFile: initial directory: ~} -constraints { nt testwinevent } -body { - set fn [file tail [lindex [glob ~/*] 0]] + set fn [file tail [lindex [glob -types f ~/*] 0]] unset -nocomplain x start {set x [tk_getOpenFile \ -initialdir ~ \ |