5 ##################################################
6 # UnifySameDomain produces invalid shape
7 ##################################################
9 brestore [locate_data_file bug28995_s1.brep] s1
10 brestore [locate_data_file bug28995_s2.brep] s2
12 # perform fuse operation
15 # check the result of fuse
18 if {![regexp "This shape seems to be OK" [bopcheck rfuse]]} {
19 puts "Error: The result of FUSE operation is a self-intersecting shape."
22 # unify faces and edges in the fused shape
23 unifysamedom result rfuse
25 # check unified result
28 if {![regexp "This shape seems to be OK" [bopcheck result]]} {
29 puts "Error: The result of UnifySameDomain algorithm is a self-intersecting shape."
32 checknbshapes result -vertex 200 -edge 300 -wire 104 -face 103 -solid 1
33 checkprops result -s 1.59154e+006 -v 1.1497e+007
35 checkview -display result -2d -path ${imagedir}/${test_image}.png