summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-10-12 19:18:50 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-10-12 19:18:50 (GMT)
commit910bf2864599dfd5aa2aa00cd5fc225c01c17146 (patch)
tree784e22167de782ff70965bcc8388b2ca9fac91c9 /tests
parent5aa32dcd815719855c977ec975dd97e391cbf8b3 (diff)
downloadtk-910bf2864599dfd5aa2aa00cd5fc225c01c17146.zip
tk-910bf2864599dfd5aa2aa00cd5fc225c01c17146.tar.gz
tk-910bf2864599dfd5aa2aa00cd5fc225c01c17146.tar.bz2
Fixed failing test filebox-3.5.0
Diffstat (limited to 'tests')
-rw-r--r--tests/filebox.test6
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/filebox.test b/tests/filebox.test
index 2573825..41382a2 100644
--- a/tests/filebox.test
+++ b/tests/filebox.test
@@ -281,7 +281,11 @@ foreach mode $modes {
-initialfile $fileName -initialdir $fileDir \
-typevariable tv]
if {[info exists tv]} {
- regexp {^(.*) \(.*\)$} $tv dummy typeName
+ if {$mode == 0} {
+ set typeName $tv
+ } else {
+ regexp {^(.*) \(.*\)$} $tv dummy typeName
+ }
} else {
set typeName "-unset-"
}