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