5 ###########################################################
6 # Export /Import of valid model leads to lost of tolerances
7 ###########################################################
11 restore [locate_data_file bug22454.brep] s
14 stepwrite m s $imagedir/shape.stp
15 stepread $imagedir/shape.stp a *
17 set tolref [checkmaxtol s]
19 set tol [checkmaxtol a_1]
21 puts "MAX tolerance shape before export : $tolref"
22 puts "MAX tolerance shape after import : $tol"
24 if { ${tol} > ${tolref} } {
25 puts "Error: Export /Import cause increasing tolerances of shape"
27 puts "Export /Import does not cause increasing tolerances of shape"
30 checkview -display a_1 -2d -path ${imagedir}/${test_image}.png