diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-10-12 19:18:50 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-10-12 19:18:50 (GMT) |
| commit | 910bf2864599dfd5aa2aa00cd5fc225c01c17146 (patch) | |
| tree | 784e22167de782ff70965bcc8388b2ca9fac91c9 /tests | |
| parent | 5aa32dcd815719855c977ec975dd97e391cbf8b3 (diff) | |
| download | tk-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.test | 6 |
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-" } |