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

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

diff --git a/tests/caf/bugs/A4 b/tests/caf/bugs/A4
index 4bd46cb..ea313d8 100755 (executable)
--- a/tests/caf/bugs/A4
+++ b/tests/caf/bugs/A4
@@ -35,7 +35,7 @@ SetIntArray Doc ${aLabel} ${isDelta} ${aFrom1} ${aTo1} ${aSetAttr11} ${aSetAttr1
 NewCommand Doc
 
 # Save the document
-set aFile ${imagedir}/OCC1228-[file tail [info script]].cbf
+set aFile ${imagedir}/OCC1228-${casename}.cbf
 file delete ${aFile}
 catch {SaveAs Doc ${aFile}}
 if { ![file exists ${aFile}] } {