0024174: [regression] BRepBuilderAPI_Sewing returns result with very high tolerance
[occt.git] / tests / bugs / modalg_5 / bug24174_2
1 puts "========================"
2 puts "OCC24174"
3 puts "========================" 
4 puts ""
5 #######################################################################
6 # [regression] BRepBuilderAPI_Sewing returns result with very high tolerance
7 #######################################################################
8
9 pload XSDRAW
10
11 restore [locate_data_file  bug24174_stitch.brep] a
12
13 sewing result 0.1 a
14
15 # 0
16 set log_1 [tolmax a]
17 regexp {max tol = ([-0-9.+eE]+)} ${log_1} full MaxTolerance_a
18 set CMP_TOL ${MaxTolerance_a}
19
20 # 1
21 checkshape result
22
23 # 2
24 set log_2 [tolmax result]
25 regexp {max tol = ([-0-9.+eE]+)} ${log_2} full MaxTolerance_result
26 if { ${MaxTolerance_result} > ${CMP_TOL} } {
27    puts "Error: invalid tolerance"
28 }
29
30 # 3
31 freebounds $result 0
32 set s [explode result_c e]
33
34 set Number [ llength ${s} ]
35 puts "Number of free edges is ${Number}"
36 set Number_Free_Edges 9
37 if { ${Number} != ${Number_Free_Edges} } {
38    puts "Error : Number of free edges is ${Number}"
39 }
40
41 set 2dviewer 1