testreadstep [locate_data_file bug31301.stp] s
-testwritestep bug31301_1.stp s
-testreadstep bug31301_1.stp s1
+set aTmpFile "$imagedir/${casename}.stp"
+testwritestep "$aTmpFile" s
+testreadstep "$aTmpFile" s1
+file delete "$aTmpFile"
checkshape s1 f
-checkmaxtol s1 -ref 0.0078
\ No newline at end of file
+checkmaxtol s1 -ref 0.0078
restore [locate_data_file bug31301_2.brep] s
-testwritestep bug31301_1.stp s
-testreadstep bug31301_1.stp s1
+set aTmpFile "$imagedir/${casename}.stp"
+testwritestep "$aTmpFile" s
+testreadstep "$aTmpFile" s1
+file delete "$aTmpFile"
checkshape s1 f
-checkmaxtol s1 -ref 0.000247
\ No newline at end of file
+checkmaxtol s1 -ref 0.000247
param write.step.nonmanifold 1
-testwritestep comp_nonmanifold.step a
-testreadstep comp_nonmanifold.step result
+set aTmpFile "$imagedir/${casename}.step"
+testwritestep "$aTmpFile" a
+testreadstep "$aTmpFile" result
+file delete "$aTmpFile"
checkshape result
-
checknbshapes result -face 3
param write.step.nonmanifold 1
-testwritestep comp_nonmanifold.step a
-testreadstep comp_nonmanifold.step result
+set aTmpFile "$imagedir/${casename}.step"
+testwritestep "$aTmpFile" a
+testreadstep "$aTmpFile" result
+file delete "$aTmpFile"
checkshape result
-
checknbshapes result -ref [lrange [nbshapes a] 11 16]
sphere s 10
tessellate result s 100 100
XProgress +t
-set out [writestl result s.stl]
+set aTmpFile "$imagedir/${casename}.stl"
+set out [writestl result "$aTmpFile"]
+file delete "$aTmpFile"
set expected {
{Progress: 0%}