From 910bf2864599dfd5aa2aa00cd5fc225c01c17146 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Wed, 12 Oct 2016 19:18:50 +0000
Subject: Fixed failing test filebox-3.5.0

---
 tests/filebox.test | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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-"
 	    }
-- 
cgit v0.12