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 a477cd4dc71ccc13e83bdc841470e4401c3c49b1..bcbc8ed015c8e50a2b23f3071844e6d5200f2821 100644 (file)
--- 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