diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-15 22:49:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-15 22:49:36 (GMT) |
| commit | 6ab1d5ec9aa0ecf66cf454b289ccfe7a25cdd717 (patch) | |
| tree | 0ef1312e71fbb09873a136f569ab95eca9e02226 | |
| parent | a2aa9abdee9ec1030399ca8da485649b65786f69 (diff) | |
| download | tk-6ab1d5ec9aa0ecf66cf454b289ccfe7a25cdd717.zip tk-6ab1d5ec9aa0ecf66cf454b289ccfe7a25cdd717.tar.gz tk-6ab1d5ec9aa0ecf66cf454b289ccfe7a25cdd717.tar.bz2 | |
make xmfbox testcases work (again) with Tcl 9.0
| -rw-r--r-- | tests/xmfbox.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/xmfbox.test b/tests/xmfbox.test index a6426ec..89eda3c 100644 --- a/tests/xmfbox.test +++ b/tests/xmfbox.test @@ -91,8 +91,8 @@ test xmfbox-2.1 {tk::MotifFDialog_InterpFilter, ~ in dir names} -constraints { set x [tk::MotifFDialog_Create foo open {}] $::tk::dialog::file::foo(fEnt) delete 0 end $::tk::dialog::file::foo(fEnt) insert 0 [pwd]/~nosuchuser1 - set kk [tk::MotifFDialog_InterpFilter $x] -} -result "$testPWD/~nosuchuser1 *" + file normalize [file join {*}[tk::MotifFDialog_InterpFilter $x]] +} -result "$testPWD/~nosuchuser1/*" test xmfbox-2.2 {tk::MotifFDialog_InterpFilter, ~ in file names} -constraints { unix @@ -102,8 +102,8 @@ test xmfbox-2.2 {tk::MotifFDialog_InterpFilter, ~ in file names} -constraints { set x [tk::MotifFDialog_Create foo open {}] $::tk::dialog::file::foo(fEnt) delete 0 end $::tk::dialog::file::foo(fEnt) insert 0 [pwd]/~nosuchuser1 - set kk [tk::MotifFDialog_InterpFilter $x] -} -result "$testPWD ./~nosuchuser1" + file normalize [file join {*}[tk::MotifFDialog_InterpFilter $x]] +} -result "$testPWD/~nosuchuser1" test xmfbox-2.3 {tk::MotifFDialog_Update, ~ in file names} -constraints { unix @@ -138,7 +138,7 @@ test xmfbox-2.5 {tk::MotifFDialog_BrowseFList, ~ in file names} -constraints { $::tk::dialog::file::foo(fList) selection clear 0 end $::tk::dialog::file::foo(fList) selection set $i tk::MotifFDialog_BrowseFList $x - $::tk::dialog::file::foo(sEnt) get + file normalize [$::tk::dialog::file::foo(sEnt) get] } -result "$testPWD/~nosuchuser1" test xmfbox-2.6 {tk::MotifFDialog_ActivateFList, ~ in file names} -constraints { @@ -153,7 +153,7 @@ test xmfbox-2.6 {tk::MotifFDialog_ActivateFList, ~ in file names} -constraints { tk::MotifFDialog_BrowseFList $x tk::MotifFDialog_ActivateFList $x list $::tk::dialog::file::foo(selectPath) \ - $::tk::dialog::file::foo(selectFile) $tk::Priv(selectFilePath) + $::tk::dialog::file::foo(selectFile) [file normalize $tk::Priv(selectFilePath)] } -result "$testPWD ~nosuchuser1 $testPWD/~nosuchuser1" # cleanup |