From: ibs <ibs@opencascade.com>
Date: Tue, 4 Mar 2014 08:06:46 +0000 (+0400)
Subject: 0024679: test command doesn't work with tmp path containing white spaces
X-Git-Tag: V6_7_1_beta~47
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=993d79cbbec950d7bc8b7d14f743d65a87082acd;p=occt-copy.git

0024679: test command doesn't work with tmp path containing white spaces
---

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index a477cd4dc7..bcbc8ed015 100644
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -913,7 +913,7 @@ proc _run_test {scriptsdir group gridname casefile echo} {
                 set imagedir $rootlogdir
             }
 
-            uplevel set imagedir $imagedir
+            uplevel set imagedir \"$imagedir\"
 	}
 
 	# execute test scripts