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

Several test cases writing temporary files have been corrected.

diff --git a/tests/bugs/caf/buc60756 b/tests/bugs/caf/buc60756
index 1efc4a5430f0cd06a5a2f01d9948c1db07f5912b..197bcf650ddef5094b6d867e57d19a6e6b8b849e 100755 (executable)
--- a/tests/bugs/caf/buc60756
+++ b/tests/bugs/caf/buc60756
@@ -7,10 +7,8 @@ puts "==========="
 
 Open [locate_data_file BUC60756_Doc.cbf] D
 
-######################################################################
-catch {file delete ${imagedir}/Doc2.cbf}
-
-SaveAs D ${imagedir}/Doc2.cbf
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D $aTmpFile
 Close D
-Open ${imagedir}/Doc2.cbf D 
-
+Open $aTmpFile D
+file delete -force $aTmpFile

diff --git a/tests/bugs/caf/buc60756_std b/tests/bugs/caf/buc60756_std
index 3091dc365c95d71d1894ac4109d5b864677a7951..a7e8f7eec72bc2cbb57fa4e91327b8560806cc2c 100644 (file)
--- a/tests/bugs/caf/buc60756_std
+++ b/tests/bugs/caf/buc60756_std
@@ -7,11 +7,10 @@ puts "==========="
 
 Open [locate_data_file BUC60756_Doc.std] D
 
-######################################################################
-catch {file delete ${imagedir}/Doc2.cbf}
-
 Format D BinOcaf
-SaveAs D ${imagedir}/Doc2.cbf
-Close D
-Open ${imagedir}/Doc2.cbf D 
 
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D $aTmpFile
+Close D
+Open $aTmpFile D
+file delete -force $aTmpFile

diff --git a/tests/bugs/caf/bug158 b/tests/bugs/caf/bug158
index e18fb1db38a093b39e0dc6c8e236a46116bc2ec4..8959479d146961b251269d169a69c0ecd4ca114c 100755 (executable)
--- a/tests/bugs/caf/bug158
+++ b/tests/bugs/caf/bug158
@@ -4,12 +4,9 @@ puts "=============="
 
 NewDocument D BinOcaf
 
-##################################################################
-if { [catch {set res [SaveAs D ${imagedir}/OCC158.cbf]}] != 0 } {
+set aTmpFile ${imagedir}/${casename}.cbf
+if { [catch {set res [SaveAs D ${aTmpFile}] }] != 0 } {
   puts "OCC158: Error"
-} else {
-    file delete ${imagedir}/OCC158.cbf
 }
 
-
-
+file delete -force $aTmpFile

diff --git a/tests/bugs/caf/bug170_3 b/tests/bugs/caf/bug170_3
index 690c53debf02e1dd48e0c9f67415198e19d4481b..d0a9bc14f41c6a4bdb6c75d75b54043b30fbf876 100755 (executable)
--- a/tests/bugs/caf/bug170_3
+++ b/tests/bugs/caf/bug170_3
@@ -3,8 +3,8 @@ puts "OCC170"
 puts "(case 3)"
 puts "========================"
 
-set docName OCC170
-set newDocName OCC170_2
+set docName    ${casename}
+set newDocName ${casename}_2
 set str1 "~!@#$%^&*():;'{}\|?/.>,<~!@#$%^&*():;'{}\|?/.>,<#$%#$%$%^&*():;'{}\|$%^&*(@#$%^&*():;'{}\|¦/"
 
 NewDocument $docName XmlOcaf
@@ -31,4 +31,3 @@ if {$str1 == $str2} {puts "OCC170 OK"} else {
   puts "str2=${str2}"
   puts "OCC170 Error"
 }
-

diff --git a/tests/bugs/caf/bug1919 b/tests/bugs/caf/bug1919
index 5be00c76d95030b64cb82783cbc2ade06cb6a1ca..ed57219fc259633710e9352b1b5316b77caabec6 100644 (file)
--- a/tests/bugs/caf/bug1919
+++ b/tests/bugs/caf/bug1919
@@ -73,13 +73,13 @@ if { ${USA_IsDone} != 0 || ${new_USA_Real}!=${Italian_Real} } {
 }
 
 # Store the document
-file delete ${imagedir}/OCC1919-M6.xml
-SaveAs D ${imagedir}/OCC1919-M6.xml
-if { ![file exists ${imagedir}/OCC1919-M6.xml] } {
+set aTmpFile ${imagedir}/${casename}.xml
+file delete $aTmpFile
+SaveAs D $aTmpFile
+if { ![file exists $aTmpFile] } {
    puts "OCC1919 Error : There is not file"
    set IsGood 0
 }
-catch {exec chmod 777 ${imagedir}/OCC1919-M6.xml}
 Close D
 
 # Set en_US locale 
@@ -91,7 +91,8 @@ if { ${en_US_local} != "en_US" } {
 }
 
 # Restore the document
-Open ${imagedir}/OCC1919-M6.xml DD
+Open $aTmpFile DD
+file delete -force $aTmpFile
 
 # Get a value of the attribute
 set USA_IsDone [catch {set new_USA_Real [GetReal DD ${USA_Label}]} message]

diff --git a/tests/bugs/caf/bug23306 b/tests/bugs/caf/bug23306
index e39b07a9c7354321f1cb971188d9b37f3254d34e..f627bf0d2e60a7d2b94db13d50fa9aa88cb8554b 100755 (executable)
--- a/tests/bugs/caf/bug23306
+++ b/tests/bugs/caf/bug23306
@@ -1,28 +1,22 @@
 puts "============"
-puts "OCC23306"
+puts "OCC23306: F a i l u r e s reading some attributes of BinOcaf document"
 puts "============"
 puts ""
-####################################################################################
-# Failures reading some attributes of BinOcaf document
-####################################################################################
 
 set BugNumber OCC23306
 
 NewDocument D1 BinOcaf
 SetExtStringArray D1 0:1:1 0 1 3 String1 String2 String3
-SaveAs D1 ${imagedir}/ocaf1.cbf
+
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D1 $aTmpFile
 Close D1
-set warn [Open ${imagedir}/ocaf1.cbf D2]
+set warn [Open $aTmpFile D2]
 set info [lsearch $warn "warning:"]
+file delete -force ${aTmpFile}
 
 if { $info == -1 } {
     puts "OK ${BugNumber}"
 } else {
     puts "Faulty ${BugNumber}"
 }
-
-
-
-
-
-

diff --git a/tests/bugs/caf/bug23766_4 b/tests/bugs/caf/bug23766_4
index e1513390e79c5bfc0c14b75c2f554a2c498090da..e98baa46f7cb10429dc53097e911f444209fc6b5 100755 (executable)
--- a/tests/bugs/caf/bug23766_4
+++ b/tests/bugs/caf/bug23766_4
@@ -51,12 +51,14 @@ if { [regexp "REVERSED" $info2] != 1 } {
 }
 
 #4 -  test persistence: check orientation after retrieving (to be the same as before)
-file delete -force ${imagedir}/bug23766_ttt1.cbf
 NewCommand D
-SaveAs D ${imagedir}/bug23766_ttt1.cbf
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D $aTmpFile
 Close D
 ##unset D
-Open ${imagedir}/bug23766_ttt1.cbf D
+Open $aTmpFile D
+file delete -force $aTmpFile
+
 GetShape D 0:1:2:1:2 E1
 set info3 [whatis E1]
 ## to be: E1 is a shape EDGE FORWARD Modified Orientable
@@ -74,4 +76,3 @@ if { [regexp "REVERSED" $info4] != 1 } {
 } else {
     puts "OK: orientation of E2 is correct"
 }
-

diff --git a/tests/bugs/caf/bug23766_5 b/tests/bugs/caf/bug23766_5
index 4e5f38e3a72b825cbbae1008d6eb87e7a951637e..ff2838665fb51f84ceebc8062b977e29b2e16a41 100755 (executable)
--- a/tests/bugs/caf/bug23766_5
+++ b/tests/bugs/caf/bug23766_5
@@ -50,12 +50,15 @@ if { [regexp "REVERSED" $info2] != 1 } {
 }
 
 #4 -  test persistence: check orientation after retrieving (to be the same as before)
-file delete -force ${imagedir}/bug23766_ttt1.cbf
 NewCommand D
-SaveAs D ${imagedir}/bug23766_ttt1.cbf
+
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D $aTmpFile
 Close D
 ##unset D
-Open ${imagedir}/bug23766_ttt1.cbf D
+Open $aTmpFile D
+file delete -force $aTmpFile
+
 GetShape D 0:1:2:1:2 E1
 set info3 [whatis E1]
 ## to be: E1 is a shape EDGE FORWARD Modified Orientable

diff --git a/tests/bugs/caf/bug23766_6 b/tests/bugs/caf/bug23766_6
index 638e0af0b3814d33a8c08e54e567fd6770ffba0d..923d49933ace9cc5c7d3d267019dcf5c2bfc5290 100755 (executable)
--- a/tests/bugs/caf/bug23766_6
+++ b/tests/bugs/caf/bug23766_6
@@ -53,12 +53,15 @@ if { [regexp "REVERSED" $info2] != 1 } {
 }
 
 #4 -  test persistence: check orientation after retrieving (to be the same as before)
-file delete -force ${imagedir}/bug23766_ttt1.xml
 NewCommand D
-SaveAs D ${imagedir}/bug23766_ttt1.xml
+
+set aTmpFile ${imagedir}/${casename}.xml
+SaveAs D $aTmpFile
 Close D
 ##unset D
-Open ${imagedir}/bug23766_ttt1.xml D
+Open $aTmpFile D
+file delete -force $aTmpFile
+
 GetShape D 0:1:2:1:2 E1
 set info3 [whatis E1]
 ## to be: E1 is a shape EDGE FORWARD Modified Orientable

diff --git a/tests/bugs/caf/bug24164_1 b/tests/bugs/caf/bug24164_1
index dc3f32519bcd93d7f8d45c5eaa69d96c184e61c8..cbd09f97dcf9c40788ee2dc5b61370cf70f95782 100644 (file)
--- a/tests/bugs/caf/bug24164_1
+++ b/tests/bugs/caf/bug24164_1
@@ -23,7 +23,8 @@ GetShape D $F2:2 Box2
 NewCommand D
 
 #3 save shape in the document
-SaveAs D ${imagedir}/testDoc1.cbf
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D $aTmpFile
 
 #4 close document
 set catch_status 0
@@ -37,7 +38,8 @@ if { ${catch_status} != 0 } {
 }
 
 #5 reopen just saved document with the same name
-Open ${imagedir}/testDoc1.cbf D
+Open $aTmpFile D
+file delete -force $aTmpFile
 set catch_status 0
 
 #6 close the document
@@ -49,4 +51,4 @@ if { ${catch_status} != 0 } {
    puts "Faulty ${BugNumber}"
 } else {
    puts "OK ${BugNumber}"
-}
\ No newline at end of file
+}

diff --git a/tests/bugs/caf/bug24164_2 b/tests/bugs/caf/bug24164_2
index 6c423efd78f0a47e1971f49b172ba634a05b5c0f..f56a05e21b790789a4f2d4d95a16f6aab44acb5c 100644 (file)
--- a/tests/bugs/caf/bug24164_2
+++ b/tests/bugs/caf/bug24164_2
@@ -40,7 +40,8 @@ GetRefArray D $Lab5
 GetRefArray D $Lab6
 
 #6 save the document
-SaveAs D ${imagedir}/testDoc2.cbf
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D $aTmpFile
 
 #7 close the document
 set catch_status 0
@@ -54,7 +55,8 @@ if { ${catch_status} != 0 } {
 }
 
 #8 reopen just saved document with the same name
-Open ${imagedir}/testDoc2.cbf D
+Open $aTmpFile D
+file delete -force $aTmpFile
 
 #9 close the document
 if { [catch {Close D} catch_result] } {
@@ -66,4 +68,3 @@ if { ${catch_status} != 0 } {
 } else {
    puts "OK ${BugNumber}"
 }
-

diff --git a/tests/bugs/caf/bug24852 b/tests/bugs/caf/bug24852
index 06b7fd864ff421a4584eae93c8ecc6d37621c79c..984e85a88b0bd19436d84eb5572e837085b80933 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

diff --git a/tests/bugs/caf/bug25394_1 b/tests/bugs/caf/bug25394_1
index 6e5a1a8543b18590d8d21c341a089e7d46101707..81318cc4890a148cd6457f82b9e9a97da55f241e 100755 (executable)
--- a/tests/bugs/caf/bug25394_1
+++ b/tests/bugs/caf/bug25394_1
@@ -50,11 +50,13 @@ set info5 [GetReferenceList D $Lab5]
 # output => "List is empty"
 
 # 6. save the Document in external file
-SaveAs D ${imagedir}/bug26014_test1.cbf
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D $aTmpFile
 Close D
 
 # 7. reopen the Document
-Open ${imagedir}/bug26014_test1.cbf D
+Open $aTmpFile D
+file delete -force $aTmpFile
 
 # 8. Check the restored attributes at the specified labels
 set info8 [GetBooleanList D $Lab1]

diff --git a/tests/bugs/caf/bug25394_2 b/tests/bugs/caf/bug25394_2
index d7c46fcdfd58204a1ba0fc5a1165569e1339a3b6..9d1632a0364cc084c406bb9dcd468ac821f96c75 100755 (executable)
--- a/tests/bugs/caf/bug25394_2
+++ b/tests/bugs/caf/bug25394_2
@@ -50,11 +50,13 @@ set info5 [GetReferenceList D $Lab5]
 # output => "List is empty"
 
 # 6. save the Document in external file
-SaveAs D ${imagedir}/bug26014_test2.cbf
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D $aTmpFile
 Close D
 
 # 7. reopen the Document
-Open ${imagedir}/bug26014_test2.cbf D
+Open $aTmpFile D
+file delete -force $aTmpFile
 
 # 8. Check the restored attributes at the specified labels
 set info8 [GetBooleanList D $Lab1]

diff --git a/tests/bugs/caf/bug25394_3 b/tests/bugs/caf/bug25394_3
index d36c25e9c0d0aac37f5d9cfe99e825b3774610a1..74d7114eb742c08e2cfb4c5d39cf932ffb2d8497 100755 (executable)
--- a/tests/bugs/caf/bug25394_3
+++ b/tests/bugs/caf/bug25394_3
@@ -50,11 +50,13 @@ set info5 [GetReferenceList D $Lab5]
 # output => "List is empty"
 
 # 6. save the Document in external file
-SaveAs D ${imagedir}/bug26014_test3.xml
+set aTmpFile ${imagedir}/${casename}.xml
+SaveAs D $aTmpFile
 Close D
 
 # 7. reopen the Document
-Open ${imagedir}/bug26014_test3.xml D
+Open $aTmpFile D
+file delete -force $aTmpFile
 
 # 8. Check the restored attributes at the specified labels
 set info8 [GetBooleanList D $Lab1]

diff --git a/tests/bugs/caf/bug25536 b/tests/bugs/caf/bug25536
index 3c182ef8e2415e22de8648f5459fa684e1b73564..830883b0c58f7b066d869ecaca823e45bf007b0d 100644 (file)
--- a/tests/bugs/caf/bug25536
+++ b/tests/bugs/caf/bug25536
@@ -1,10 +1,7 @@
 puts "============"
-puts "OCC25536"
+puts "OCC25536: XmlMDataXtd_GeometryDriver doesn't support TDataXtd_SPLINE, TDataXtd_PLANE and TDataXtd_CYLINDER."
 puts "============"
 puts ""
-#######################################################################
-# XmlMDataXtd_GeometryDriver doesn't support TDataXtd_SPLINE, TDataXtd_PLANE and TDataXtd_CYLINDER.
-#######################################################################
 
 NewDocument Doc XmlOcaf
 
@@ -16,12 +13,13 @@ SetGeometry Doc 0:2:2 pln
 Label Doc 0:2:3
 SetGeometry Doc 0:2:3 cyl
 
-set aFile ${imagedir}/bug25536_test.xml
-SaveAs Doc ${aFile}
+set aTmpFile ${imagedir}/${casename}.xml
+SaveAs Doc ${aTmpFile}
 Close Doc
 
 # check attributes are correctly restored
-Open ${aFile} Doc2
+Open ${aTmpFile} Doc2
+file delete -force $aTmpFile
 
 set aType [GetGeometryType Doc2 0:2:1]
 if {${aType} != "spl"} {
@@ -37,4 +35,3 @@ if {${aType} != "cyl"} {
 }
 
 Close Doc2
-

diff --git a/tests/bugs/caf/bug25537 b/tests/bugs/caf/bug25537
index 1da77c16a2798911bbf02df2c117a1ce0574eda5..26a6d46d6f87703330dbda41767619ca25b2c572 100644 (file)
--- a/tests/bugs/caf/bug25537
+++ b/tests/bugs/caf/bug25537
@@ -1,10 +1,8 @@
 puts "============"
-puts "OCC25537"
+puts "OCC25537: XmlMPrsStd_PositionDriver::Paste runtime check c r a s h."
 puts "============"
 puts ""
-#######################################################################
-# XmlMPrsStd_PositionDriver::Paste runtime check crash.
-#######################################################################
+
 pload XDEDRAW
 
 NewDocument Doc XmlXCAF
@@ -22,8 +20,9 @@ for {set i 1} {$i < 100} {incr i} {
   XSetCentroid Doc $aLab2 $aBigNum $aBigNum $aBigNum
 }
 
-set aFile ${imagedir}/bug25537_test.xml
-SaveAs Doc ${aFile}
+set aTmpFile ${imagedir}/${casename}.xml
+SaveAs Doc ${aTmpFile}
 
 ## ==> No exception
 Close Doc
+file delete -force $aTmpFile

diff --git a/tests/bugs/caf/bug26290_newattribute_1 b/tests/bugs/caf/bug26290_newattribute_1
index 77ff9e439acc0d8bdecc872848f461fe3fd2eb05..f2a7ef8ae7d96bdbafcf700973f7d6eb65c0d60e 100644 (file)
--- a/tests/bugs/caf/bug26290_newattribute_1
+++ b/tests/bugs/caf/bug26290_newattribute_1
@@ -25,7 +25,9 @@ Undo D 1
 Redo D 1
 AISColor D $Lab1 AQUAMARINE4
 NewCommand D
-SaveAs D $imagedir/bug26290_new_1.cbf
+
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D $aTmpFile
 
 AISErase D $Lab1
 ## DFBrowse D # - for debug purpose only
@@ -36,7 +38,8 @@ Redo D 1
 Close D
 
 ## reopen just kept file
-Open $imagedir/bug26290_new_1.cbf D
+Open $aTmpFile D
+file delete -force $aTmpFile
 
 ## DFBrowse D
 AISInitViewer D

diff --git a/tests/bugs/caf/bug26290_newattribute_2 b/tests/bugs/caf/bug26290_newattribute_2
index a79a631821ce02a692904c7cf25cbb8add10f03e..cb1e42cc9c41a56f322ba8b0a5bab6af8259de80 100644 (file)
--- a/tests/bugs/caf/bug26290_newattribute_2
+++ b/tests/bugs/caf/bug26290_newattribute_2
@@ -27,11 +27,14 @@ Undo D 1
 Redo D 1
 AISColor D $Lab1 AQUAMARINE4
 NewCommand D
-SaveAs D $imagedir/bug26290_new_1.cbf
+
+set aTmpFile1 ${imagedir}/${casename}_1.cbf
+SaveAs D $aTmpFile1
 Close D
 
 # test
-Open $imagedir/bug26290_new_1.cbf D
+Open $aTmpFile1 D
+file delete -force $aTmpFile1
 UndoLimit D 100
 NewCommand D
 
@@ -53,14 +56,16 @@ NewCommand D
 Undo D 1
 Redo D 1
 
-SaveAs D $imagedir/bug26290_new_2.cbf
+set aTmpFile2 ${imagedir}/${casename}_2.cbf
+SaveAs D $aTmpFile2
 AISErase D $Lab2
 set Lab1 [Label D 0:1:1]
 AISErase D $Lab1
 NewCommand D
 Close D
 
-Open $imagedir/bug26290_new_2.cbf D
+Open $aTmpFile2 D
+file delete -force $aTmpFile1
 
 ## DFBrowse D
 AISInitViewer D

diff --git a/tests/bugs/caf/bug267_1 b/tests/bugs/caf/bug267_1
index b204b052238bdc8b92d6ee492e4f469a83c373db..0ab50ac1612c65ece709e20076c921d72fc96767 100644 (file)
--- a/tests/bugs/caf/bug267_1
+++ b/tests/bugs/caf/bug267_1
@@ -6,6 +6,5 @@ NewDocument D BinOcaf
 
 ######################################################################
 
-file delete ${imagedir}/OCC267.cbf
-SaveAs D ${imagedir}/OCC267.cbf
-
+SaveAs D ${imagedir}/${casename}.cbf
+file delete -force ${imagedir}/${casename}.cbf

diff --git a/tests/bugs/caf/bug27433 b/tests/bugs/caf/bug27433
index 72c21eb0ed114467181b45a185585a1100bbfe7a..b3d72fe3f25568635bf3c95026ab9d882af4c8f8 100755 (executable)
--- a/tests/bugs/caf/bug27433
+++ b/tests/bugs/caf/bug27433
@@ -10,12 +10,12 @@ NewDocument Doc BinOcaf
 SetInteger Doc 0:2 100
 
 # Save the document
-set aFile ${imagedir}/OCC27433-[file tail [info script]].cbf
-file delete ${aFile}
-puts ${aFile}
-catch {SaveAs Doc ${aFile}}
-if { ![file exists ${aFile}] } {
-       puts "Error: Can not save the file with path to plugins ended with slash"
+set aTmpFile ${imagedir}/${casename}.cbf
+puts ${aTmpFile}
+catch {SaveAs Doc ${aTmpFile}}
+if { ![file exists ${aTmpFile}] } {
+  puts "Error: Can not save the file with path to plugins ended with slash"
 }
 
 Close Doc
+file delete -force $aTmpFile

diff --git a/tests/bugs/caf/bug27604 b/tests/bugs/caf/bug27604
index 5f5c9d51370d6eb1f4de454b6e12f3adb11b79fb..52389b7d45475e31adf71e6c85b36a94fc2e54d3 100644 (file)
--- a/tests/bugs/caf/bug27604
+++ b/tests/bugs/caf/bug27604
@@ -11,18 +11,18 @@ pload OCAF MODELING
 # just a big shape to fit in memory
 restore [locate_data_file $aBigShape] s
 
-file delete ${imagedir}/test.cbf
+set aTmpFile ${imagedir}/${casename}.cbf
 
 # store it in the document
 NewDocument D BinOcaf
 SetShape D "0:2" s
-SaveAs D ${imagedir}/test.cbf
+SaveAs D $aTmpFile
 Close D
 
 # store the memory used before opening a document
 set aBefore [meminfo h]
 
-Open ${imagedir}/test.cbf DD
+Open $aTmpFile DD
 set aDocLoaded [meminfo h]
 set aBigDelta [expr $aDocLoaded - $aBefore]
 Close DD
@@ -39,3 +39,5 @@ puts "After close: $anAfter"
 if {[expr $aBigDelta / 20. - $aDelta] < 0} {
   puts "Error: the memory is not freed after Open/Close"
 }
+
+file delete -force $aTmpFile

diff --git a/tests/bugs/caf/bug28428 b/tests/bugs/caf/bug28428
index 25aee4e89ce8adf3935e1a8ec61c811ab31e7395..bd7ca182c1672748fe94bec8a2727ebc51b7eb19 100644 (file)
--- a/tests/bugs/caf/bug28428
+++ b/tests/bugs/caf/bug28428
@@ -1,19 +1,18 @@
 puts "==========="
-puts "OCC28428"
+puts "OCC28428: BinMNaming_NamedShapeDriver f a i l s if there are no nodes in NamedShape"
 puts "==========="
 puts ""
-########################################################################
-# BinMNaming_NamedShapeDriver fails if there are no nodes in NamedShape
-########################################################################
 
 pload QAcommands
 
 NewDocument D1 BinOcaf
 # Create TNaming_Builder on a label without putthing shapes
 BuildNamedShape D1 0:1 P
-SaveAs D1 $imagedir/bug28428_new.cbf
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D1 $aTmpFile
 Close D1
 # This produced a NamedShape driver failure with catching by general driver
 # and output a failure message (caught by parse.rules)
-Open $imagedir/bug28428_new.cbf D2
+Open $aTmpFile D2
 Close D2
+file delete -force $aTmpFile

diff --git a/tests/bugs/caf/bug28691 b/tests/bugs/caf/bug28691
index d0e6d2c153761ca5fcfef7845829ba3ad53849ee..c9ffe83509ec9100af38e5749c5c791d6861d217 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}

diff --git a/tests/bugs/caf/bug29217 b/tests/bugs/caf/bug29217
index d4b214b15c784347356291ae3911c3048272b05b..3d89f00b3967b5a8734a98cf9b2eee525178206f 100644 (file)
--- a/tests/bugs/caf/bug29217
+++ b/tests/bugs/caf/bug29217
@@ -6,8 +6,8 @@ puts ""
 
 NewDocument D BinOcaf
 SetExtStringArray D 0:1 0 1 3 Hello hallo Bonjour
-set FileV7 ${imagedir}/bug29217_doc7.cbf
-set FileV10 ${imagedir}/bug29217_doc10.cbf
+set FileV7  ${imagedir}/${casename}_doc7.cbf
+set FileV10 ${imagedir}/${casename}_doc10.cbf
 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 ${FileV10}

diff --git a/tests/bugs/caf/bug381_1 b/tests/bugs/caf/bug381_1
index 854526ece5d85e0ec215ca9b27cf4fbbf7882ac6..6aa60ed6c85fbb01a5b67d91a7b7da37458e0027 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

diff --git a/tests/bugs/caf/bug381_2 b/tests/bugs/caf/bug381_2
index 3574afa08d8cb5cecfad2d0cf4cc52834a98d77e..d08f873212a569991002a77bb1ceb2eecf74946c 100755 (executable)
--- a/tests/bugs/caf/bug381_2
+++ b/tests/bugs/caf/bug381_2
@@ -8,10 +8,7 @@ pload QAcommands
 NewDocument D BinOcaf
 
 ######################################################
-if { [catch { OCC381_SaveAs D ${imagedir}/OCC381_2.cbf}] } {
+if { [catch { OCC381_SaveAs D ${imagedir}/${casename}.cbf}] } {
     puts "OCC381: Error" 
-} else {
-    catch {exec chmod 777 ${imagedir}/OCC381_2.cbf}
-    file delete -force ${imagedir}/OCC381_2.cbf
 }
-
+file delete -force ${imagedir}/${casename}.cbf

diff --git a/tests/bugs/caf/bug425 b/tests/bugs/caf/bug425
index af926014e3bf2f3921b187e0f7d6b613e360d721..3cfbd8f2d1499f0e685caaad9464c09df76a9d94 100755 (executable)
--- a/tests/bugs/caf/bug425
+++ b/tests/bugs/caf/bug425
@@ -23,18 +23,17 @@ SetName D ${aLabel} ${aSetAttr1}
 NewCommand D
 
 # Save the document
-set aFile ${imagedir}/OCC425.cbf
-catch {file delete ${aFile}}
+set aFile ${imagedir}/${casename}.cbf
 SaveAs D ${aFile}
 if { ![file exists ${aFile}] } {
     puts "There is not ${aFile} file; SaveAs command: Error"
     set IsGood 0
 }
-catch {exec chmod 777 ${aFile}}
 
 # Restore the document
 Close D
 Open ${aFile} DD
+file delete -force ${aFile}
 
 # Get a value of the attribute
 set aGetAttr3 ""

diff --git a/tests/bugs/caf/bug9746 b/tests/bugs/caf/bug9746
index ddf7d7ffc5c457550bee0fff4272967c6ada2757..ab0679529ea89ba786efde73c1df9d1632761cba 100755 (executable)
--- a/tests/bugs/caf/bug9746
+++ b/tests/bugs/caf/bug9746
@@ -57,19 +57,18 @@ SelectShape D $CylNamLab:11 C_2 C
 SelectShape D $CylNamLab:12 C_3 C
 
 # Save the document
-set aFile ${imagedir}/OCC9746-Z3.cbf
-file delete ${aFile}
+set aFile ${imagedir}/${casename}.cbf
 SaveAs D ${aFile}
 if { ![file exists ${aFile}] } {
    puts "There is not ${aFile} file; SaveAs command: Error"
    puts "${BugNumber}: ERROR (case 1)"
 }
-catch {exec chmod 777 ${aFile}}
 
 Close D
 
 # Restore the document
 catch {Open ${aFile} DDoc}
+file delete -force ${aFile}
 
 #
 set BoxNamLab [Label DDoc 0:4]

diff --git a/tests/bugs/iges/bug23822 b/tests/bugs/iges/bug23822
index 6e8d27d851b35478cc182858bca584cab08c4665..7e422ebc231ad0c69b2312362fdc10f1427db722 100755 (executable)
--- a/tests/bugs/iges/bug23822
+++ b/tests/bugs/iges/bug23822
@@ -1,14 +1,10 @@
 puts "========"
-puts "CR23822"
+puts "CR23822: S I G S E G V 'segmentation v i o l a t i o n' during writing IGES"
 puts "========"
 puts ""
-#########################################################
-## SIGSEGV 'segmentation violation' during writing IGES
-#########################################################
 
 ReadIges D [locate_data_file ball_bearing.igs]
 
-set aFile ${imagedir}/bug23822_new_file.igs
-file delete -force ${aFile}
-
-WriteIges D ${aFile}
+set aTmpFile ${imagedir}/${casename}.igs
+WriteIges D $aTmpFile
+file delete -force $aTmpFile

diff --git a/tests/bugs/iges/bug25518 b/tests/bugs/iges/bug25518
index f7db17c538298011dfff15ed97fb0a7ec634ee32..98755c3ea1ba79822e5a110c140ea9da78425443 100644 (file)
--- a/tests/bugs/iges/bug25518
+++ b/tests/bugs/iges/bug25518
@@ -1,19 +1,18 @@
 puts "========"
-puts "OCC25518"
+puts "OCC25518: Colors are not written to IGES 5.3"
 puts "========"
 puts ""
-######################################
-# Colors are not written to IGES 5.3
-######################################
 
-catch {exec rm ${imagedir}/OCC25518.igs}
 psphere s 10
 XNewDoc D
 XAddShape D s
 XSetColor D s 0 0 1
 param write.iges.brep.mode 1
-WriteIges D ${imagedir}/OCC25518.igs
-ReadIges T ${imagedir}/OCC25518.igs
+
+set aTmpFile ${imagedir}/${casename}.igs
+WriteIges D $aTmpFile
+ReadIges  T $aTmpFile
+file delete -force ${aTmpFile}
 if {[string trim [XGetAllColors T]] != "BLUE"} {
   puts "ERROR: OCC25518 is reproduced. Color is lost."
 }

diff --git a/tests/bugs/iges/bug25632_1 b/tests/bugs/iges/bug25632_1
index b42a1f84bcc95775166ca022d081cadf4163f995..325891e1c88bab2aed7a2594526fead2b32a1a8f 100644 (file)
--- a/tests/bugs/iges/bug25632_1
+++ b/tests/bugs/iges/bug25632_1
@@ -1,10 +1,7 @@
 puts "============"
-puts "OCC25632"
+puts "OCC25632: IGES writer looses face orientation"
 puts "============"
 puts ""
-#######################################################################
-# IGES writer looses face orientation
-#######################################################################
 
 plane p 0 0 0 0 0 1 1 0 0
 mkface f p 0 100 0 100
@@ -17,13 +14,15 @@ normals f 100
 treverse f
 normals f 100
 
-xwd ${imagedir}/${test_image}_1.png
+xwd ${imagedir}/${casename}_1.png
 
-testwriteiges ${imagedir}/bug25632_f.igs f
-testreadiges ${imagedir}/bug25632_f.igs ff
+set aTmpFile ${imagedir}/${casename}.igs
+testwriteiges $aTmpFile f
+testreadiges  $aTmpFile ff
+file delete -force ${aTmpFile}
 
 donly ff
 
 normals ff 100
 
-xwd ${imagedir}/${test_image}_2.png
+xwd ${imagedir}/${casename}_2.png

diff --git a/tests/bugs/iges/bug25632_2 b/tests/bugs/iges/bug25632_2
index d2a1a50c4db428f32b08af21cdfa324bfdac6fb2..17dd98104798aa20b00d443d69d19de355f18a00 100644 (file)
--- a/tests/bugs/iges/bug25632_2
+++ b/tests/bugs/iges/bug25632_2
@@ -1,10 +1,7 @@
 puts "============"
-puts "OCC25632"
+puts "OCC25632: IGES writer looses face orientation"
 puts "============"
 puts ""
-#######################################################################
-# IGES writer looses face orientation
-#######################################################################
 
 plane p 0 0 0 0 0 1 1 0 0
 mkface face p 0 100 0 100
@@ -21,13 +18,15 @@ mkface f s 10 20 30 40
 treverse f
 normals f 100
 
-xwd ${imagedir}/${test_image}_1.png
+xwd ${imagedir}/${casename}_1.png
 
-testwriteiges ${imagedir}/f_2.igs f
-testreadiges ${imagedir}/f_2.igs ff
+set aTmpFile ${imagedir}/${casename}.igs
+testwriteiges $aTmpFile f
+testreadiges  $aTmpFile ff
+file delete -force ${aTmpFile}
 
 donly ff
 
 normals ff 100
 
-xwd ${imagedir}/${test_image}_2.png
+xwd ${imagedir}/${casename}_2.png

diff --git a/tests/bugs/iges/bug25747 b/tests/bugs/iges/bug25747
index e04258846f2e9b819e08d327640f12c5b163e414..39cf6904b258b6206f185a2e7d397073c49d9780 100644 (file)
--- a/tests/bugs/iges/bug25747
+++ b/tests/bugs/iges/bug25747
@@ -1,12 +1,7 @@
 puts "========"
-puts "OCC25747"
+puts "OCC25747: Bad IGES file after import and export with different units"
 puts "========"
 puts ""
-######################################
-# Bad IGES file after import and export with different units
-######################################
-
-catch {exec rm ${imagedir}/OCC25747.igs}
 
 # default OCCT unit for reading
 param xstep.cascade.unit MM
@@ -23,10 +18,12 @@ vfit
 vsetdispmode 1
 vdump ${imagedir}/${casename}_1.png
 
-WriteIges D ${imagedir}/OCC25747.igs
+set aTmpFile ${imagedir}/${casename}.igs
+WriteIges D $aTmpFile
 
 # bad IGES file after export
-ReadIges T ${imagedir}/OCC25747.igs
+ReadIges T $aTmpFile
+file delete -force ${aTmpFile}
 
 XShow T
 vtop

diff --git a/tests/bugs/iges/bug26138 b/tests/bugs/iges/bug26138
index 389f09538c0cc14ad837818e8e6b4a18797c32d5..10c229459aec77c68a8b3f7d53f3e9476a2b3b44 100644 (file)
--- a/tests/bugs/iges/bug26138
+++ b/tests/bugs/iges/bug26138
@@ -1,12 +1,13 @@
 puts "========"
-puts "OCC26138"
+puts "OCC26138: Problems with writing periodic BSplines into IGES"
 puts "========"
 puts ""
-#####################################################
-# Problems with writing periodic BSplines into IGES
-#####################################################
 
 igesbrep [locate_data_file OCC26138_Torus.igs] a *
-brepiges a ${imagedir}/bug26138.igs
-igesbrep ${imagedir}/bug26138.igs b *
+
+set aTmpFile ${imagedir}/${casename}.igs
+brepiges a $aTmpFile
+igesbrep $aTmpFile b *
+file delete -force ${aTmpFile}
+
 checkprops a -s -equal b

diff --git a/tests/bugs/iges/bug26419_1 b/tests/bugs/iges/bug26419_1
index 0b8ac60c5679e26d46abcbb0ee308727a368593e..3ea113af7dafbd7f597408dce3f8f477533a46a3 100644 (file)
--- a/tests/bugs/iges/bug26419_1
+++ b/tests/bugs/iges/bug26419_1
@@ -1,11 +1,10 @@
 puts "========"
-puts "OCC26419"
+puts "OCC26419: Export of a reversed face leads to c r a s h in 6.9.0 although proceeded in 6.8.0"
 puts "========"
 puts ""
-#####################################################
-# [Regression?] Export of a reversed face leads to crash in 6.9.0 although proceeded in 6.8.0
-#####################################################
 
 restore [locate_data_file bug26419_a-fwd.brep] af
 
-brepiges af ${imagedir}/bug26419_1.igs
+set aTmpFile ${imagedir}/${casename}.igs
+brepiges af $aTmpFile
+file delete -force ${aTmpFile}

diff --git a/tests/bugs/iges/bug26419_2 b/tests/bugs/iges/bug26419_2
index 5c6b21b8dc9f3fa5595aa4c035f6376feaf26b3a..24aaf9b430795983b3d863c19d7d1b29ba441e31 100644 (file)
--- a/tests/bugs/iges/bug26419_2
+++ b/tests/bugs/iges/bug26419_2
@@ -1,11 +1,10 @@
 puts "========"
-puts "OCC26419"
+puts "OCC26419: Export of a reversed face leads to c r a s h in 6.9.0 although proceeded in 6.8.0"
 puts "========"
 puts ""
-#####################################################
-# [Regression?] Export of a reversed face leads to crash in 6.9.0 although proceeded in 6.8.0
-#####################################################
 
 restore [locate_data_file bug26419_a-rev.brep] ar
 
-brepiges ar ${imagedir}/bug26419_2.igs
+set aTmpFile ${imagedir}/${casename}.igs
+brepiges ar $aTmpFile
+file delete -force ${aTmpFile}

diff --git a/tests/bugs/iges/bug26931 b/tests/bugs/iges/bug26931
index f7172bf849f0e277f6ed1114a20bf2f32f5a98d0..93b0dbef87de015bda4e2f13bc4bc5c9c51fb6ba 100644 (file)
--- a/tests/bugs/iges/bug26931
+++ b/tests/bugs/iges/bug26931
@@ -1,11 +1,13 @@
 #######################################################################
-# OCC26931: [Regression in 6.9.0] Exporting a face throws an exception
+puts "OCC26931: Exporting a face throws an e x c e p t i o n"
 #######################################################################
 
 # restore initial face
 restore [locate_data_file bug26931.brep] face
 set square 6416.6
 # export face to IGES 
-brepiges face ${imagedir}/${casename}.igs
+set aTmpFile ${imagedir}/${casename}.igs
+brepiges face $aTmpFile
 # import back to check similarity
-igesbrep ${imagedir}/${casename}.igs result *
+igesbrep $aTmpFile result *
+file delete -force ${aTmpFile}

diff --git a/tests/bugs/iges/bug26989 b/tests/bugs/iges/bug26989
index 615e1f42a42fff4c1e1aa48a295c07328bb60bd2..f3960d0ddaac7f5462762be9c8a7c67f2479e25f 100644 (file)
--- a/tests/bugs/iges/bug26989
+++ b/tests/bugs/iges/bug26989
@@ -1,9 +1,12 @@
 #########################################################################################
-# OCC26989: [Regression in 6.9.0] Export of a reversed face leads to wrong data in 6.9.0
+puts "OCC26989: Export of a reversed face leads to wrong data in 6.9.0"
 #########################################################################################
 
 restore [locate_data_file bug26989.brep] a
 newmodel
-brepiges a ${imagedir}/bug26989.igs
-igesbrep ${imagedir}/bug26989.igs result *
+set aTmpFile ${imagedir}/${casename}.igs
+brepiges a $aTmpFile
+igesbrep $aTmpFile result *
+file delete -force ${aTmpFile}
+
 checkprops result -s 56.5487

diff --git a/tests/bugs/iges/bug28589 b/tests/bugs/iges/bug28589
index 8c1d5cf528a8b5f4524c85a199bd5f02b18361af..047e064958f62cb245c93b1fb9a3f76b0c763b0a 100644 (file)
--- a/tests/bugs/iges/bug28589
+++ b/tests/bugs/iges/bug28589
@@ -1,8 +1,12 @@
 #######################################################################
-# Data Exchange - Writing face with NaturalRestriction flag to IGES
+puts "Data Exchange - Writing face with NaturalRestriction flag to IGES"
 #######################################################################
 
 restore [locate_data_file bug28589.brep] face
-brepiges face ${imagedir}/${casename}.igs
-igesbrep ${imagedir}/${casename}.igs result *
+
+set aTmpFile ${imagedir}/${casename}.igs
+brepiges face $aTmpFile
+igesbrep $aTmpFile result *
+file delete -force ${aTmpFile}
+
 checknbshapes result -shape 10

diff --git a/tests/bugs/step/bug26657 b/tests/bugs/step/bug26657
index 380a5f8be69f9d3d4c044920c054939c109e63f8..3c2cca6b3310175ee905632ffab296573a1f14e1 100644 (file)
--- a/tests/bugs/step/bug26657
+++ b/tests/bugs/step/bug26657
@@ -1,21 +1,19 @@
-pload DCAF
-pload TOPTEST
-pload XDE
 puts "========"
-puts "OCC26657"
+puts "OCC26657: STEP OCAF writers should keep hierarchy and colors when saving non-root elements"
 puts "========"
 puts ""
-##########################################################################
-# STEP OCAF writers should keep hierarchy and colors when saving non-root elements
-##########################################################################
-pload XDEDRAW
+
+pload DCAF TOPTEST XDE XDEDRAW
 ReadStep D1 [locate_data_file bug26657.stp]
-WriteStep D1 $imagedir/bug26657_temp.stp a 0:1:1:1:2
+
+set aTmpFile ${imagedir}/${casename}_temp.stp
+WriteStep D1 $aTmpFile a 0:1:1:1:2
 if { [catch { Close D11 } catch_result] } {
-    puts "Document D11 is not exist"
+  puts "Document D11 is not exist"
 }
+ReadStep D11 $aTmpFile
+file delete -force $aTmpFile
 
-ReadStep D11 $imagedir/bug26657_temp.stp
 XGetOneShape result D11
 checkshape result f
 
@@ -24,5 +22,4 @@ checknbshapes result -solid 3
 XShow D11
 vfit
 vsetdispmode 1
-vdump $imagedir/${test_image}.png
-
+vdump $imagedir/${casename}.png

diff --git a/tests/bugs/step/bug29403 b/tests/bugs/step/bug29403
index 40794d8d68c135902e42e280c201edfe5bb6eb21..856c31d1452610ad35d786f99f9807809f9b7dfe 100644 (file)
--- a/tests/bugs/step/bug29403
+++ b/tests/bugs/step/bug29403
@@ -1,10 +1,7 @@
 puts "=========="
-puts "OCC29403"
+puts "OCC29403: Subshapes names are not imported from step"
 puts "=========="
 puts ""
-#########################################################
-# Subshapes names are not imported from step
-#########################################################
 
 param read.stepcaf.subshapes.name 1
 param write.stepcaf.subshapes.name 1
@@ -18,9 +15,10 @@ regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1
 regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info1 full nb
 regexp {Number of labels with name += +([-0-9.+eE]+)} $info1 full nbname
 
-WriteStep doc $imagedir/doc_subshapes.stp
-
-ReadStep after_doc $imagedir/doc_subshapes.stp
+set aTmpFile ${imagedir}/${casename}_subshapes.stp
+WriteStep      doc $aTmpFile
+ReadStep after_doc $aTmpFile
+file delete -force $aTmpFile
 
 set info2 [XStat after_doc]
 regexp {level N 0 +: +([-0-9.+eE]+)} $info2 full l0_1
@@ -41,7 +39,6 @@ if { ${l0} != ${l0_1} ||
 
 Close doc
 Close after_doc
-file delete -force $imagedir/doc_subshapes.stp
 
 param read.stepcaf.subshapes.name 0
 param write.stepcaf.subshapes.name 0

diff --git a/tests/bugs/step/bug31550 b/tests/bugs/step/bug31550
index 2d8c8aaad25ad8202c9cacc68b50a9ed32f6ffc3..51780be1bdfe080b11bdbc32f9a6c11d8c626c36 100644 (file)
--- a/tests/bugs/step/bug31550
+++ b/tests/bugs/step/bug31550
@@ -12,7 +12,7 @@ if { [catch { ReadStep D ${filename} } result] } {
 
 # Static data
 set Transparency 0.5
-set TempFilename ${imagedir}/bug31550_temp.stp
+set TempFilename ${imagedir}/${casename}_temp.stp
 
 # Get colors
 set Colors [XGetAllColors D]
@@ -29,9 +29,10 @@ if { [catch { WriteStep D ${TempFilename} } result] } {
 if { [catch { ReadStep D1 ${TempFilename} } result] } {
   puts "ERROR: Couldn't read ${TempFilename} file"
 }
+file delete -force $TempFilename
 
 # Get colors
 set Colors [XGetAllColors D1]
 if { [string first ${Transparency} ${Colors}] == -1 } {
   puts "ERROR: OCC31550 is reproduced while STEP export."
-}
\ No newline at end of file
+}

diff --git a/tests/bugs/step/bug32679 b/tests/bugs/step/bug32679
index 55eb8310e7a050323a1affb86b17ed4da2d63651..5c1c2d11e39d0c04149b7a52f7b08266efa570f1 100644 (file)
--- a/tests/bugs/step/bug32679
+++ b/tests/bugs/step/bug32679
@@ -17,11 +17,11 @@ proc CheckName {doc1 doc2 lab} {
 }
 
 proc RunTestWithFile {file} {
-  global imagedir
   puts "Testing file $file"
   XOpen [locate_data_file $file] d1
-  WriteStep d1 ${imagedir}/${file}.step
-  ReadStep d2 ${imagedir}/${file}.step
+  set aTmpFile ${::imagedir}/${::casename}_${file}.step
+  WriteStep d1 $aTmpFile
+  ReadStep  d2 $aTmpFile
 
   CheckName d1 d2 0:1:1:1:1
   CheckName d1 d2 0:1:1:2:1
@@ -29,7 +29,7 @@ proc RunTestWithFile {file} {
 
   Close d1
   Close d2
-  file delete ${imagedir}/${file}.step
+  file delete -force $aTmpFile
 }
 
 RunTestWithFile as1-no-ass-name.xbf

diff --git a/tests/bugs/xde/bug21802 b/tests/bugs/xde/bug21802
index c94af3a8ec6dd7b6ff77ee462225d5df46cdccf1..183148f8420382427807fefdac23005be912a42e 100644 (file)
--- a/tests/bugs/xde/bug21802
+++ b/tests/bugs/xde/bug21802
@@ -1,17 +1,15 @@
 puts "=========="
-puts "OCC21802"
+puts "OCC21802: Not all names are transferred from STEP to IGES via XDE"
 puts "=========="
 puts ""
-###########################################################
-# Not all names are transferred from STEP to IGES via XDE
-###########################################################
 
 ReadStep d [locate_data_file bug21802_as1-oc-214.stp]
-catch {exec rm ${imagedir}/bug21802_as1-oc-214.igs}
-WriteIges d ${imagedir}/bug21802_as1-oc-214.igs
+
+set aTmpFile ${imagedir}/${casename}.igs
+WriteIges d $aTmpFile
 
 set is21802fixed "FALSE"
-set file21802 [open ${imagedir}/bug21802_as1-oc-214.igs RDONLY]
+set file21802 [open $aTmpFile RDONLY]
 while {[eof $file21802] == 0} {
   set file21802line [string trim [gets $file21802]]
   if {[string first "l-bracke" $file21802line] != -1} {
@@ -19,6 +17,7 @@ while {[eof $file21802] == 0} {
   }
 }
 close $file21802
+file delete -force ${aTmpFile}
 
 if {[string compare $is21802fixed "FALSE"] == 0} {
   puts "ERROR: OCC21802 is reproduced"

diff --git a/tests/bugs/xde/bug23384 b/tests/bugs/xde/bug23384
index f4815e09965a4ee6062afc55ff20adbd69fc5e82..e59641b9e6f8c4ed15706c65f1a735e7bb650d6c 100755 (executable)
--- a/tests/bugs/xde/bug23384
+++ b/tests/bugs/xde/bug23384
@@ -8,13 +8,16 @@ regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1
 regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info1 full nb
 regexp {Number of labels with name += +([-0-9.+eE]+)} $info1 full nbname
 
+set aTmpFile ${imagedir}/${casename}_temp.stp
 param write.stepcaf.subshapes.name 1
 
-    WriteStep doc $imagedir/doc_subshapes.stp
+    WriteStep doc $aTmpFile
 
 param read.stepcaf.subshapes.name 1
 
-    ReadStep after_doc $imagedir/doc_subshapes.stp
+    ReadStep after_doc $aTmpFile
+
+file delete -force $aTmpFile
 
 set info2 [XStat after_doc]
 regexp {level N 0 +: +([-0-9.+eE]+)} $info2 full l0_1
@@ -35,4 +38,3 @@ if { ${l0} != ${l0_1} ||
 
 Close doc
 Close after_doc
-file delete -force $imagedir/doc_subshapes.stp

diff --git a/tests/bugs/xde/bug25910 b/tests/bugs/xde/bug25910
index 710cd28dc4b4ebb8fe1306637457e612da7cbecb..8511cb21063956f1a65dd58577364cc307efd196 100644 (file)
--- a/tests/bugs/xde/bug25910
+++ b/tests/bugs/xde/bug25910
@@ -1,18 +1,16 @@
 puts "========"
-puts "OCC25910"
+puts "OCC25910: The material with 0-density causes e r r o r s during writing STEP files"
 puts "========"
 puts ""
-#######################################################################
-# The material with 0-density causes errors during writing STEP files
-#######################################################################
 
 pload DCAF
 
 NewDocument D
 box b 10 10 10
 XSetMaterial D [XAddShape D b] Vacuum 0.
-set bug_info [catch {WriteStep D $imagedir/OCC25910.stp}]
 
-if {$bug_info != 0} {
-  puts "ERROR: OCC25910 is reproduced."
-}
+set aTmpFile ${imagedir}/${casename}_tmp.stp
+set bug_info [catch {WriteStep D $aTmpFile}]
+file delete -force $aTmpFile
+
+if {$bug_info != 0} { puts "ERROR: OCC25910 is reproduced." }

diff --git a/tests/bugs/xde/bug26174 b/tests/bugs/xde/bug26174
index 006fe976e5cf863e039d556588fab2f9a4ddd64a..85757277532b7c659744f725bcaa49d1f2986d06 100644 (file)
--- a/tests/bugs/xde/bug26174
+++ b/tests/bugs/xde/bug26174
@@ -17,9 +17,6 @@ set anImageD $imagedir/${casename}_D.png
 set anImageD1 $imagedir/${casename}_D1.png
 set anImageD2 $imagedir/${casename}_D2.png
 
-catch {exec rm ${aFileD1}}
-catch {exec rm ${aFileD2}}
-
 box b 0 0 0 10 10 10
 compound b c
 NewDocument D
@@ -36,6 +33,8 @@ WriteIges D ${aFileD2}
 
 ReadIges D1 ${aFileD1}
 ReadIges D2 ${aFileD2}
+file delete -force ${aFileD1}
+file delete -force ${aFileD2}
 
 XShow D1
 vfit

diff --git a/tests/bugs/xde/bug27447 b/tests/bugs/xde/bug27447
index b8d0a5c5ac691aa6ec6f63a3081f00165769a386..5014ec11dbccdcba545ca6cca89c84d243f1cbaa 100644 (file)
--- a/tests/bugs/xde/bug27447
+++ b/tests/bugs/xde/bug27447
@@ -1,10 +1,7 @@
 puts "========"
-puts "OCC27447"
+puts "OCC27447: Add support for long IGES entity names"
 puts "========"
 puts ""
-##########################################
-# Add support for long IGES entity names
-##########################################
 
 pload OCAF
 
@@ -27,12 +24,12 @@ SetName D [XFindShape D link]:2 "Nut instance 1"
 SetName D [XFindShape D link]:3 "Nut instance 2"
 
 # Write IGES file
-catch {exec rm ${imagedir}/bug27447_link.igs}
-WriteIges D ${imagedir}/bug27447_link.igs
+set aTmpFile ${imagedir}/${casename}.igs
+WriteIges D $aTmpFile
 
 # Processing of IGES file
 set is_bug27447_fixed "FALSE"
-set file_27447 [open ${imagedir}/bug27447_link.igs RDONLY]
+set file_27447 [open $aTmpFile RDONLY]
 while {[eof $file_27447] == 0} {
   set file_27447_line [string trim [gets $file_27447]]
   if {[string first "Very long link name" $file_27447_line] != -1} {
@@ -40,6 +37,7 @@ while {[eof $file_27447] == 0} {
   }
 }
 close $file_27447
+file delete -force $aTmpFile
 
 # Results validation
 if {[string compare $is_bug27447_fixed "FALSE"] == 0} {

diff --git a/tests/bugs/xde/bug27701 b/tests/bugs/xde/bug27701
index 4b8a3281daabd8787f832983ea2124fcb081bb8a..0a6fe5176d54b873edafe6ff0f9279963feddcc7 100644 (file)
--- a/tests/bugs/xde/bug27701
+++ b/tests/bugs/xde/bug27701
@@ -1,18 +1,16 @@
 puts "========"
-puts "OCC27701"
+puts "OCC27701: C r a s h when export empty solid to STEP"
 puts "========"
 puts ""
-#########################################
-# Crash when export empty solid to STEP
-#########################################
 
 pload DCAF
 
-catch {exec rm ${imagedir}/bug27701.stp}
-
 restore [locate_data_file bug27701.brep] s
 
 NewDocument D
 XAddShape D s
 XSetColor D 0:1:1:1 1 0 0 s
-WriteStep D ${imagedir}/bug27701.stp
+
+set aTmpFile ${imagedir}/${casename}_tmp.stp
+WriteStep D $aTmpFile
+file delete -force $aTmpFile

diff --git a/tests/bugs/xde/bug28044 b/tests/bugs/xde/bug28044
index 1d3c907fa328fde96e11f093e8a9e0825ba77071..dc75ab78c027b2eca8df3c2a1deb2a62fc4f852f 100644 (file)
--- a/tests/bugs/xde/bug28044
+++ b/tests/bugs/xde/bug28044
@@ -1,10 +1,7 @@
 puts "========"
-puts "OCC28044"
+puts "OCC28044: Implement data structures in OCAF for Saved Views."
 puts "========"
 puts ""
-####################################################
-# Implement data structures in OCAF for Saved Views.
-####################################################
 
 pload OCAF
 
@@ -35,10 +32,12 @@ XSetViewFrontPlaneDistance D_First 0:1:7:1 10
 XSetViewVolumeSidesClipping D_First 0:1:7:1 1
 set first_view [XDumpView D_First 0:1:7:1]
 # Write file
-SaveAs D_First ${imagedir}/bug28044.xbf
+set aTmpFile ${imagedir}/${casename}.xbf
+SaveAs D_First $aTmpFile
 Close D_First
 # Read document
-XOpen ${imagedir}/bug28044.xbf D_Second
+XOpen $aTmpFile D_Second
+file delete -force $aTmpFile
 set second_view [XDumpView D_Second 0:1:7:1]
 
 Close D_Second

diff --git a/tests/bugs/xde/bug28641 b/tests/bugs/xde/bug28641
index c22e933e119aa86b6b5a1fccfda912baaffbf3c5..02f31f362212c53beaa374222f951dbb39a2d7bf 100644 (file)
--- a/tests/bugs/xde/bug28641
+++ b/tests/bugs/xde/bug28641
@@ -24,10 +24,12 @@ vdump $::imagedir/${::casename}_first.png
 if { [vreadpixel 300 200 rgb name] != "GRAY63" } { puts "Error: wrong color in 3D Viewer" }
 
 # Write file
-SaveAs D_First ${imagedir}/bug28521.xbf
+set aTmpFile ${imagedir}/${casename}.xbf
+SaveAs D_First $aTmpFile
 Close D_First
 # Read document
-XOpen ${imagedir}/bug28521.xbf D_Second
+XOpen $aTmpFile D_Second
+file delete -force $aTmpFile
 
 # Results validation
 set isOK 1

diff --git a/tests/bugs/xde/bug29338 b/tests/bugs/xde/bug29338
index 7a31f9d441feb97435e6cfd6689d21365cf286e5..64f826e77ba439487402a79d710f0ec4c3f61ef6 100644 (file)
--- a/tests/bugs/xde/bug29338
+++ b/tests/bugs/xde/bug29338
@@ -1,10 +1,8 @@
 puts "=========="
-puts "OCC29338"
+puts "OCC29338: Add Planes for Tolerance zones in Geometric tolerances"
 puts "=========="
 puts ""
-#########################################################
-# Add Planes for Tolerance zones in Geometric tolerances
-#########################################################
+
 pload ALL
 
 box b 1 1 1
@@ -14,9 +12,10 @@ explode b f
 XAddGeomTolerance D b_1
 plane p 1 2 3 0 1 0
 XSetGDTAffectedPlane D 0:1:4:1 p 2
-SaveAs D ${imagedir}/bug29338.xbf
+set aTmpFile ${imagedir}/${casename}.xbf
+SaveAs D $aTmpFile
 Close D
-XOpen ${imagedir}/bug29338.xbf DD
+XOpen $aTmpFile DD
 set type [XGetGDTAffectedPlane DD 0:1:4:1 plane]
 if {[lindex $type 0] != "orientation"} {
   puts "Error: wrong affected plane type"
@@ -43,4 +42,4 @@ if {[lindex $check 23] != 0} {
   puts "Error: wrong affected plane"
 }
 Close DD
-file delete ${imagedir}/bug29338.xbf
+file delete -force $aTmpFile

diff --git a/tests/bugs/xde/bug533 b/tests/bugs/xde/bug533
index a370b0629347defe2d2639f3b54d095803efcc76..443118d6c4fb38b07595af39dafd19b8143ef004 100755 (executable)
--- a/tests/bugs/xde/bug533
+++ b/tests/bugs/xde/bug533
@@ -1,19 +1,16 @@
 puts "========="
-puts "OCC533"
+puts "OCC533: XmlOcaf-Document is not stored in XDEDRAWEXE although stored in TCAF"
 puts "========="
 puts ""
 
-#######################################################
-## XmlOcaf-Document is not stored in XDEDRAWEXE although stored in TCAF
-#######################################################
-
-file delete ${imagedir}/A.xml
+set aTmpFile ${imagedir}/${casename}.xml
 
 set res 0
 catch { NewDocument A XmlOcaf }
-if [catch {SaveAs A ${imagedir}/A.xml}] {
-    puts "OCC533 FAULTY"
+if [catch {SaveAs A $aTmpFile}] {
+  puts "OCC533 FAULTY"
 } else {
-    puts "OCC533 OK"
+  puts "OCC533 OK"
 }
 
+file delete -force $aTmpFile

diff --git a/tests/caf/bugs/A1 b/tests/caf/bugs/A1
index 2e8c20431e615b57ad54bbb2075601325cb3e412..bf0ae15a1ab4341518707b846367a63b0dae9286 100755 (executable)
--- a/tests/caf/bugs/A1
+++ b/tests/caf/bugs/A1
@@ -30,7 +30,7 @@ SetInteger Doc ${aLabel} ${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}] } {

diff --git a/tests/caf/bugs/A2 b/tests/caf/bugs/A2
index cf7e6cd961e1bf48309994a3e0501266d461c6c0..173e2373524a6ac75c29bf25cb082f9ed358662e 100755 (executable)
--- a/tests/caf/bugs/A2
+++ b/tests/caf/bugs/A2
@@ -30,7 +30,7 @@ SetReal Doc ${aLabel} ${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}] } {

diff --git a/tests/caf/bugs/A3 b/tests/caf/bugs/A3
index 6328ad9500df9ca456693ad7a39b47bed3f5e179..3ff9eec160e63a042be50ab4ad589867a59134c8 100755 (executable)
--- a/tests/caf/bugs/A3
+++ b/tests/caf/bugs/A3
@@ -35,7 +35,7 @@ SetRealArray Doc ${aLabel} ${isDelta} ${aFrom1} ${aTo1} ${aSetAttr11} ${aSetAttr
 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}] } {

diff --git a/tests/caf/bugs/A4 b/tests/caf/bugs/A4
index 4bd46cb6843e810be58ea538211fbf2a9c2ee50d..ea313d8129249c4e0454777be20a7e744871c698 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}] } {

diff --git a/tests/caf/bugs/A5 b/tests/caf/bugs/A5
index fa12895dc1575698b5a05299dda99e67e7500b1d..f5c5d7dd963dc716716a639cc69fb8881910ffbe 100755 (executable)
--- a/tests/caf/bugs/A5
+++ b/tests/caf/bugs/A5
@@ -31,7 +31,7 @@ SetName Doc ${aLabel} ${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}] } {

diff --git a/tests/caf/bugs/A6 b/tests/caf/bugs/A6
index c1a8472e4a697dab1d19a297223c26d30ce5e876..4011bc1c1cc96ae49fadbf1702714502a5c9de24 100755 (executable)
--- a/tests/caf/bugs/A6
+++ b/tests/caf/bugs/A6
@@ -31,7 +31,7 @@ SetComment Doc ${aLabel} ${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}] } {

diff --git a/tests/caf/bugs/A7 b/tests/caf/bugs/A7
index 0412d4836fbba6a302a5ae84630dfe2d23ec2faf..f5738d0de1a9815268ffb1f835888626888d402e 100755 (executable)
--- a/tests/caf/bugs/A7
+++ b/tests/caf/bugs/A7
@@ -47,7 +47,7 @@ SetPoint Doc ${aLabel} aPoint1
 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}] } {

diff --git a/tests/caf/bugs/A8 b/tests/caf/bugs/A8
index 914fc020e12689f8a222c9b1bef4ec2bb8d4f7fb..3296db16c07d391bdd3e774dcdb6a4a6be0c62b3 100755 (executable)
--- a/tests/caf/bugs/A8
+++ b/tests/caf/bugs/A8
@@ -55,7 +55,7 @@ SetAxis Doc ${aLabel} aLine1
 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}] } {

diff --git a/tests/caf/bugs/A9 b/tests/caf/bugs/A9
index 8566a73e7872a63d52f486889041c9efac5eabd2..9564f88d80c5e827ec8b009546fa87b5d329a85a 100755 (executable)
--- a/tests/caf/bugs/A9
+++ b/tests/caf/bugs/A9
@@ -58,7 +58,7 @@ SetPlane Doc ${aLabel} aPlane1
 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}] } {

diff --git a/tests/caf/bugs/B1 b/tests/caf/bugs/B1
index 87d277bef0ba9352a81289a5044a9351470743c7..7a39b83aedf8045bbcb81744c42b7c8a39c801c2 100755 (executable)
--- a/tests/caf/bugs/B1
+++ b/tests/caf/bugs/B1
@@ -30,7 +30,7 @@ SetUAttribute Doc ${aLabel} ${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}] } {

diff --git a/tests/caf/bugs/B2 b/tests/caf/bugs/B2
index 68f032365ab39d8f1f90de0b6113f3e0263f6fe8..2c59ec5f570a665b5e7157921a88277d2bb50107 100755 (executable)
--- a/tests/caf/bugs/B2
+++ b/tests/caf/bugs/B2
@@ -34,7 +34,7 @@ SetUAttribute Doc ${aLabel} ${aSetAttr2}
 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}] } {

diff --git a/tests/caf/bugs/B3 b/tests/caf/bugs/B3
index 845e26d482b20c9280def424662a5503ec1bb10a..ae4bb4168c312298cb2b8ad3b65b2ab6d255592a 100755 (executable)
--- a/tests/caf/bugs/B3
+++ b/tests/caf/bugs/B3
@@ -40,7 +40,7 @@ SetShape Doc ${aLabel} aBox1
 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}] } {

diff --git a/tests/caf/bugs/B4 b/tests/caf/bugs/B4
index 91cd1c407cb8377d4adb03f87f4a45fc07e8e1fb..c30e718e26bf9682fbe3715b0cd1aba776d37496 100755 (executable)
--- a/tests/caf/bugs/B4
+++ b/tests/caf/bugs/B4
@@ -40,7 +40,7 @@ SetReference Doc ${aLabel4} ${aReference1}
 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}] } {

diff --git a/tests/caf/bugs/B5 b/tests/caf/bugs/B5
index 38c797c12effc5ec42465af400a3a3e19fe590f2..a76c0393b7a5894dc37669d366e69fbdad43b2ed 100755 (executable)
--- a/tests/caf/bugs/B5
+++ b/tests/caf/bugs/B5
@@ -46,7 +46,7 @@ SetShape Doc ${aLabel} aBox1
 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}}
 #catch {exec chmod 777 ${aFile}}

diff --git a/tests/caf/bugs/B6 b/tests/caf/bugs/B6
index 9ca450098875f8606b9caf064717478887ef1622..12e9b16340524815f66a8bf8aef38e854460125d 100755 (executable)
--- a/tests/caf/bugs/B6
+++ b/tests/caf/bugs/B6
@@ -40,7 +40,7 @@ AISSet Doc ${aLabel} NS
 AISDisplay Doc ${aLabel}
 
 # 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}] } {

diff --git a/tests/caf/bugs/B7 b/tests/caf/bugs/B7
index 16db31dcb033af9978b81a25e753eadca465a0ce..65973d458bf00e53ef99382f623ceac05ec0656a 100755 (executable)
--- a/tests/caf/bugs/B7
+++ b/tests/caf/bugs/B7
@@ -54,7 +54,7 @@ CopyWithLink Doc1 ${aLabel2} Doc1 ${aLabel1}
 NewCommand Doc1
 
 # Save the document
-set aFile ${imagedir}/OCC1228-[file tail [info script]].cbf
+set aFile ${imagedir}/OCC1228-${casename}.cbf
 file delete ${aFile}
 catch {SaveAs Doc1 ${aFile}}
 if { ![file exists ${aFile}] } {

diff --git a/tests/caf/bugs/B8 b/tests/caf/bugs/B8
index 4f3b0804fd490255223124aed0f437bb0768559d..5deaf698705d452ba153f676d9aa8c3adca824a9 100755 (executable)
--- a/tests/caf/bugs/B8
+++ b/tests/caf/bugs/B8
@@ -37,7 +37,7 @@ SetName Doc ${aChild1} ${aName11}
 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}] } {

diff --git a/tests/caf/bugs/B9 b/tests/caf/bugs/B9
index 2a01fe17ffa926f7cd4d7642d9cd12b7b0b2a29d..e086e357d599a77265fffbe71223738bd40c3f95 100755 (executable)
--- a/tests/caf/bugs/B9
+++ b/tests/caf/bugs/B9
@@ -30,7 +30,7 @@ SetName Doc ${aLabel1} ${aName1}
 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}] } {

diff --git a/tests/caf/presentation/M1 b/tests/caf/presentation/M1
index 9723450c65d2518da35af61c8ccaf6b9ff15e7c2..fb0ec08681979af14aabaec6c8cb8f2ff6ddb991 100644 (file)
--- a/tests/caf/presentation/M1
+++ b/tests/caf/presentation/M1
@@ -14,7 +14,7 @@ AISSet D1 0:1 NS
 AISDisplay D1 0:1
 AISMode D1 0:1 1
 
-set aFile ${imagedir}/testmode.xml
+set aFile ${imagedir}/${casename}.xml
 file delete ${aFile}
 SaveAs D1 ${aFile}
 if { ![file exists ${aFile}] } {

diff --git a/tests/caf/progress/A1 b/tests/caf/progress/A1
index ad79274857ccf3e098dd55f91b74593843275565..ce69578ef578eaf074a90aac6a4dbf844e25910e 100644 (file)
--- a/tests/caf/progress/A1
+++ b/tests/caf/progress/A1
@@ -19,7 +19,7 @@ box b 1 1 1
 SetShape Doc 0:1 b
 
 # SaveAs
-set output [SaveAs Doc ${imagedir}/testA1.cbf]
+set output [SaveAs Doc ${imagedir}/${casename}_tmp.cbf]
 
 # Close the document
 Close Doc

diff --git a/tests/caf/progress/A2 b/tests/caf/progress/A2
index 9ee66649c94cd01739b61a378f635ae2e092faab..527672c8b53bd52a6d6d285b04d202c9c3763562 100644 (file)
--- a/tests/caf/progress/A2
+++ b/tests/caf/progress/A2
@@ -20,7 +20,7 @@ box b 1 1 1
 SetShape Doc 0:1 b
 
 # SaveAs
-set output [SaveAs Doc ${imagedir}/testA2.xml]
+set output [SaveAs Doc ${imagedir}/${casename}_tmp.xml]
 
 # Close the document
 Close Doc

diff --git a/tests/perf/caf/bug2793 b/tests/perf/caf/bug2793
index cb0f55134d81355df32649bd3b4401751409e876..6b0c15b5a67d234555c6db88a2c23df06e6b1f4c 100644 (file)
--- a/tests/perf/caf/bug2793
+++ b/tests/perf/caf/bug2793
@@ -39,8 +39,8 @@ NewShape D ${lab7} shape7
 NewShape D ${lab8} shape8
 
 # Save document
-file delete -force ${imagedir}/2793.cbf
 dchrono h restart
-SaveAs D ${imagedir}/2793.cbf
+SaveAs D ${imagedir}/${casename}.cbf
 dchrono h stop counter SaveAs
-Close D
\ No newline at end of file
+Close D
+file delete -force ${imagedir}/${casename}.cbf

diff --git a/tests/perf/de/bug29830_3 b/tests/perf/de/bug29830_3
index 99d721b3de314747c799799f4727a0b629b450df..fff4e1f65923cc9910afe7de525d6924ee9e389f 100644 (file)
--- a/tests/perf/de/bug29830_3
+++ b/tests/perf/de/bug29830_3
@@ -16,9 +16,12 @@ XNewDoc D
 XAddShape D co
 
 puts "Writing STEP model"
-WriteStep D .
+set aTmpFile ${imagedir}/${casename}_tmp.stp
+WriteStep D $aTmpFile
 Close D
 
 puts "Destructing model"
 #crash
 newmodel
+
+file delete -force $aTmpFile

diff --git a/tests/perf/de/bug29830_dir/script b/tests/perf/de/bug29830_dir/script
index c98714f758f76d9b44d477860d8030c6913e894e..a94165cd7c8e7dc1ac37fdb10c3767bdd498a2ad 100644 (file)
--- a/tests/perf/de/bug29830_dir/script
+++ b/tests/perf/de/bug29830_dir/script
@@ -19,6 +19,8 @@ set nz 10
 if [info exists D] {Close D}
 if [info exists D1] {Close D1}
 
+set aTmpFile ${imagedir}/${casename}_tmp.stp
+
 for {set npass 1} {$npass <= 2} {incr npass} {
 
   set nx [expr $nx0 * $npass]
@@ -64,13 +66,13 @@ for {set npass 1} {$npass <= 2} {incr npass} {
 
   puts "Writing STEP model"
   chrono cr1 restart
-  WriteStep D .
+  WriteStep D $aTmpFile
   chrono cr1 stop
   Close D
 
   puts "Reading STEP model"
   chrono cr2 restart
-  ReadStep D1 .
+  ReadStep D1 $aTmpFile
   chrono cr2 stop
 
   # check one solid with different locations
@@ -93,6 +95,7 @@ for {set npass 1} {$npass <= 2} {incr npass} {
 
   set time_write_$npass [lindex [dchrono cr1 counter "WriteStep_$npass"] end]
   set time_read_$npass [lindex [dchrono cr2 counter "ReadStep_$npass"] end]
+  file delete -force $aTmpFile
 }
 
 puts "time_write_1=$time_write_1"