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

[occt.git] / tests / bugs / step / bug26657

diff --git a/tests/bugs/step/bug26657 b/tests/bugs/step/bug26657
index 380a5f8..3c2cca6 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