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

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

diff --git a/tests/bugs/caf/bug28691 b/tests/bugs/caf/bug28691
index d0e6d2c..c9ffe83 100644 (file)
--- a/tests/bugs/caf/bug28691
+++ b/tests/bugs/caf/bug28691
@@ -6,8 +6,8 @@ puts ""
 
 NewDocument D XmlOcaf
 SetExtStringArray D 0:1 0 1 3 Hello hallo Bonjour
-set FileV7 ${imagedir}/bug28691_doc7.xml
-set FileV9 ${imagedir}/bug28691_doc9.xml
+set FileV7 ${imagedir}/${casename}_doc7.xml
+set FileV9 ${imagedir}/${casename}_doc9.xml
 SetNode D 0:1
 AISSet D 0:1 NS
 
@@ -90,3 +90,6 @@ if { [regexp "Bonjour" ${info}] != 1 } {
 } else {
     puts "OK : there is \"Bonjour\" word in TDataStd_ExtStringArray attribute in old version document"
 }
+
+file delete -force ${FileV7}
+file delete -force ${FileV9}