0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26938_2
1 puts "=========="
2 puts "OCC26938  "
3 puts "=========="
4 puts ""
5 #####################################################
6 # Boolean operations fail between two ellipsoids
7 #####################################################
8
9 restore [locate_data_file bug26938.brep] a
10 explode a
11
12 bcommon result a_1 a_2
13
14 # Check shape validity
15 checkshape result
16
17 # Check area
18 checkprops result -s 3.52497e+006
19
20 # Check self-intersection
21 set info [bopcheck result]
22 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
23     puts "Error : The result of General Fuse operation is self-interfered shape"
24 }
25
26 checkview -display result -2d -path ${imagedir}/${test_image}.png