2 puts "0030913: Invalid result of Fusing slices"
6 restore [locate_data_file bug30913_case1.brep] s
12 eval baddtools [lrange $exp 1 end]
14 # Use gluing Shift option
16 # Avoid History filling
24 unifysamedom result result
28 checkprops result -s 3.81335e+06 -v 1.39597e+08
29 checknbshapes result -vertex 12042 -edge 18169 -wire 6223 -face 6176 -shell 1 -solid 1 -t
31 if {![regexp "This shape seems to be OK" [bopcheck result]]} {
32 puts "Error: result is a self-intersecting shape"
35 checkview -display result -2d -path ${imagedir}/${test_image}.png