summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/winDialog.test12
1 files changed, 7 insertions, 5 deletions
diff --git a/tests/winDialog.test b/tests/winDialog.test
index c2c7b35..c9e06a3 100644
--- a/tests/winDialog.test
+++ b/tests/winDialog.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# Copyright (c) 1998-1999 ActiveState Corporation.
#
-# RCS: @(#) $Id: winDialog.test,v 1.18 2008/08/30 21:52:26 aniap Exp $
+# RCS: @(#) $Id: winDialog.test,v 1.19 2008/10/06 22:09:16 patthoyts Exp $
package require tcltest 2.2
namespace import ::tcltest::*
@@ -260,12 +260,14 @@ test winDialog-5.11 {GetFileName: initial directory} -constraints {
} -body {
# case FILE_INITDIR:
- start {set x [tk_getSaveFile -initialdir c:/ -initialfile "12x 455" -title Foo]}
+ start {set x [tk_getSaveFile \
+ -initialdir [file normalize $::env(TEMP)] \
+ -initialfile "12x 455" -title Foo]}
then {
Click 1
}
return $x
-} -result {C:/12x 455}
+} -result [file join [file normalize $::env(TEMP)] "12x 455"]
test winDialog-5.12 {GetFileName: initial directory: Tcl_TranslateFilename()} -constraints {
nt
} -body {
@@ -392,11 +394,11 @@ test winDialog-5.23 {GetFileName: convert \ to /} -constraints {
} -body {
start {set x [tk_getSaveFile -title Back]}
then {
- SetText 0x480 "c:\\12x 457"
+ SetText 0x480 "$::env(TEMP)\\12x 457"
Click 1
}
return $x
-} -result {c:/12x 457}
+} -result [file join [file normalize $::env(TEMP)] "12x 457"]
test winDialog-5.24 {GetFileName: file types: MakeFilter() succeeds} -constraints {
nt
} -body {