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

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

diff --git a/tests/bugs/caf/bug24852 b/tests/bugs/caf/bug24852
index 06b7fd8..984e85a 100755 (executable)
--- a/tests/bugs/caf/bug24852
+++ b/tests/bugs/caf/bug24852
@@ -1,18 +1,14 @@
 puts "=========="
-puts "OCC24852"
+puts "OCC24852: C r a s h on storage of an Ocaf document in XML file format"
 puts "=========="
 puts ""
-########################################################
-# Crash on storage of an Ocaf document in XML file format
-########################################################
 
 NewDocument D XmlOcaf
 
-set File ${imagedir}/bug24852_test.xml
-
-if { [catch {set res [SaveAs D ${File}]}] != 0 } {
+set aTmpFile ${imagedir}/${casename}.xml
+if { [catch {set res [SaveAs D $aTmpFile]}] != 0 } {
   puts "Error : Crash on storage of an Ocaf document in XML file format"
 } else {
   puts "OK : Storage of an Ocaf document in XML file format is good"
-  file delete ${File}
 }
+file delete -force $aTmpFile