0025199: Bad tolerance edge generated by blend algorithm
[occt.git] / tests / bugs / modalg_5 / bug25199
1 puts "============"
2 puts "OCC25199"
3 puts "============"
4 puts ""
5 ###############################################################################################
6 # Bad tolerance edge generated by blend algorithm
7 ###############################################################################################
8
9 decho off
10 test bugs modalg_3 bug615
11 decho on
12
13 explode result E
14
15 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result_21] full MaxTol_1
16
17 puts "MaxTolerance = $MaxTol_1"
18
19 set MaxTol 0.001
20
21 if { $MaxTol_1 > $MaxTol } {
22     puts "Faulty OCC25199:  Bad tolerance edge generated by blend algorithm"
23 } else {
24     puts "OCC25199 OK:  Good tolerance edge generated by blend algorithm"
25 }
26