diff options
| author | hobbs <hobbs@noemail.net> | 2001-04-04 06:47:25 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2001-04-04 06:47:25 (GMT) |
| commit | df1c93d7a3d711ca2df8eda77dfb780829359149 (patch) | |
| tree | f11f09478a5693a519fc427a1fd5f30548260c10 /tests/winDialog.test | |
| parent | 260997f4f76f5b161f76e5f82b30948fed9a8c5d (diff) | |
| download | tk-df1c93d7a3d711ca2df8eda77dfb780829359149.zip tk-df1c93d7a3d711ca2df8eda77dfb780829359149.tar.gz tk-df1c93d7a3d711ca2df8eda77dfb780829359149.tar.bz2 | |
* tests/winDialog.test: string totitle'd some results that
expected [pwd] to return a capital drive letter.
FossilOrigin-Name: 1cfbc9baca03619f97dcad92ebd4c67d283847cf
Diffstat (limited to 'tests/winDialog.test')
| -rw-r--r-- | tests/winDialog.test | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/winDialog.test b/tests/winDialog.test index ec23514..6dbcb2d 100644 --- a/tests/winDialog.test +++ b/tests/winDialog.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winDialog.test,v 1.5 2000/11/02 01:19:42 hobbs Exp $ +# RCS: @(#) $Id: winDialog.test,v 1.6 2001/04/04 06:47:25 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -126,16 +126,16 @@ test winDialog-5.8 {GetFileName: extension begins with .} {nt} { SetText 0x480 bar Click 1 } - set x -} [file join [pwd] bar.foo] + string totitle $x +} [string totitle [file join [pwd] bar.foo]] test winDialog-5.9 {GetFileName: extension doesn't begin with .} {nt} { start {set x [tk_getSaveFile -defaultextension foo -title Save]} then { SetText 0x480 bar Click 1 } - set x -} [file join [pwd] bar.foo] + string totitle $x +} [string totitle [file join [pwd] bar.foo]] test winDialog-5.10 {GetFileName: file types} {nt} { # case FILE_TYPES: @@ -173,8 +173,8 @@ test winDialog-5.14 {GetFileName: initial file} {nt} { then { Click 1 } - set x -} [file join [pwd] "12x 456"] + string totitle $x +} [string totitle [file join [pwd] "12x 456"]] test winDialog-5.15 {GetFileName: initial file: Tcl_TranslateFileName()} {nt} { # if (Tcl_TranslateFileName(interp, string, &ds) == NULL) list [catch {tk_getOpenFile -initialfile ~12x/455} msg] $msg @@ -189,8 +189,8 @@ test winDialog-5.16 {GetFileName: initial file: long name} {nt} { then { Click 1 } - set x -} [string range [file join [pwd] $a] 0 257] + string totitle $x +} [string totitle [string range [file join [pwd] $a] 0 257]] test winDialog-5.17 {GetFileName: parent} {nt} { # case FILE_PARENT: |