diff options
Diffstat (limited to 'tests')
| -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: |