0032705: Test - name clashes within temporary files within bugs/caf/bug23766_X

[occt.git] / tests / bugs / caf / bug381_1

diff --git a/tests/bugs/caf/bug381_1 b/tests/bugs/caf/bug381_1
index 854526e..6aa60ed 100755 (executable)
--- a/tests/bugs/caf/bug381_1
+++ b/tests/bugs/caf/bug381_1
@@ -8,11 +8,8 @@ pload QAcommands
 NewDocument D BinOcaf
 
 ######################################################
-catch { SaveAs D ${imagedir}/OCC381_1.cbf }
-
+catch { SaveAs D ${imagedir}/${casename}.cbf }
 if { [catch { OCC381_Save D } ] } {
     puts "OCC381: Error" 
-} else {
-    catch { exec chmod 777 ${imagedir}/OCC381_1.cbf }
-    file delete -force ${imagedir}/OCC381_1.cbf
 }
+file delete -force ${imagedir}/${casename}.cbf