0022454: Export /Import of valid model leads to lost of tolerances
[occt.git] / tests / bugs / modalg_6 / bug22454
1 puts "============"
2 puts "OCC22454"
3 puts "============"
4 puts ""
5 ###########################################################
6 # Export /Import of valid model leads to lost of tolerances
7 ###########################################################
8
9 pload DATAEXCHANGE
10
11 restore [locate_data_file bug22454.brep] s
12
13 checkshape s
14 stepwrite m s $imagedir/shape.stp
15 stepread $imagedir/shape.stp a *
16
17 set tolref [checkmaxtol s]
18
19 set tol [checkmaxtol a_1]
20
21 puts "MAX tolerance shape before export : $tolref"
22 puts "MAX tolerance shape after import : $tol"
23
24 if { ${tol} > ${tolref} } {
25             puts "Error: Export /Import cause increasing tolerances of shape"
26         } else {
27             puts "Export /Import does not cause increasing tolerances of shape"
28         }  
29
30 checkview -display a_1 -2d -path ${imagedir}/${test_image}.png