restore  [locate_data_file bug31301_2.brep] s
set aTmpFile "$imagedir/${casename}.stp"
testwritestep "$aTmpFile" s
testreadstep  "$aTmpFile" s1
file delete   "$aTmpFile"
checkshape s1 f
checkmaxtol s1 -ref 0.000247
