diff options
| -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-" } |