0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug28167
CommitLineData
9026dea8 1puts "TODO OCC28167 ALL: Error: Fillet has strange form at its end"
2
3puts "========"
4puts "OCC28167"
5puts "========"
6puts ""
7#####################################
8# Fillet has strange form at its end
9#####################################
10
11restore [locate_data_file bug28167_solid.brep] s
12
13explode s E
14
15fillet r s 1 s_3
16
17explode r F
18explode r_6 E
19renamevar r_6_1 res
20
21regexp {Mass +: +([-0-9.+eE]+)} [lprops res] full length_r_6_1
22
23set expected_length 1.31899
24set toleranse 1.e-4
25if {[expr abs(${length_r_6_1} - ${expected_length})] <= ${toleranse}} {
26 puts "Error: Fillet has strange form at its end"
27}
28
29checkview -display r_6 -2d -path ${imagedir}/${test_image}.png