0029711: General Fuse operation produces invalid result

[occt.git] / tests / boolean / bcut_complex / F2

diff --git a/tests/boolean/bcut_complex/F2 b/tests/boolean/bcut_complex/F2
index 7aa2f6f..af4deb8 100644 (file)
--- a/tests/boolean/bcut_complex/F2
+++ b/tests/boolean/bcut_complex/F2
@@ -1,10 +1,44 @@
 # Original bug : buc60127
 # Date : 18mar98
 
-puts "TODO #22911 ALL: Error : The command is not valid. The area is 0."
-
 restore [locate_data_file buc60127-part.rle] part
 restore [locate_data_file buc60127-tool.rle] tool
 
+# fix the part shape
+
+explode part f
+# fix inner cylinder
+mksurface c_in part_1
+trim c_in c_in
+mkface f_in c_in 0 2*pi 0 150
+
+# fix side faces
+mksurface s1 part_3
+mksurface s2 part_4
+mkface f1 s1 -10 10 -10 10
+mkface f2 s2 -10 10 -10 10
+
+# fix solid
+mkvolume r part_2 f_in f1 f2
+
+# find the outher solid - the one containing the outer cylinder (part_2 face)
+foreach s [explode r so] {
+  set found 0
+  foreach f [explode $s f] {
+    if {[regexp "same shapes" [compare part_2 $f]]} {
+      copy $s part
+      set found 1
+      break
+    }
+  }
+  if {$found} {
+    break
+  }
+}
+
 bcut result part tool
-checkprops result -s 0
+checkshape result
+checkprops result -s 5382.41 -v 2643.38
+checknbshapes result -wire 14 -face 11 -shell 1 -solid 1
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png
\ No newline at end of file