Adjusting testing cases for current state of OCCT
[occt.git] / tests / bugs / modalg_5 / bug23845
1 puts "================"
2 puts "OCC23845"
3 puts "================"
4 puts ""
5 #######################################################################
6 # New auxilary method concatenating a wire into an edge based on C0-continuous curve.
7 #######################################################################
8
9 restore [locate_data_file bug23845_profil_0a.brep] a
10 restore [locate_data_file bug23845_profil_1a.brep] b
11
12 concatC0wire aa a
13 concatC0wire bb b
14
15 set CMP_TOL 1.e-6
16
17 # 1
18 checkshape aa
19 set tolmaxres [tolmax aa]
20 regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
21 if { ${MaxTolerance} > ${CMP_TOL} } {
22    puts "Error: invalid tolerance of first wire"
23 }
24
25 # 2
26 checkshape bb
27 set tolmaxres [tolmax bb]
28 regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
29 if { ${MaxTolerance} > ${CMP_TOL} } {
30    puts "Error: invalid tolerance of second wire"
31 }