From: kgv <kgv@opencascade.org>
Date: Sat, 2 Feb 2013 06:32:07 +0000 (+0400)
Subject: 0023739: Execution of Draw Harness command "test" failed
X-Git-Tag: V6_6_0_beta~70
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=723754e2a39a89d50bc0a2152df6a96a437c2e7f;p=occt-copy.git

0023739: Execution of Draw Harness command "test" failed
---

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index c20687dcd7..c2bb23ad3b 100644
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -1912,7 +1912,7 @@ proc load_data_file {file format shape} {
 # procedure to get name of temporary directory,
 # ensuring it is existing and writeable 
 proc _get_temp_dir {} {
-    global env
+    global env tcl_platform
 
     # check typical environment variables 
     foreach var {TempDir Temp Tmp} {
@@ -1939,7 +1939,7 @@ proc _get_temp_dir {} {
         }
     }
     foreach dir $paths {
-        if { [file isdirectory $dir] && [file iswritable $dir] } {
+        if { [file isdirectory $dir] && [file writable $dir] } {
             return $dir
         }
     }