X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=tests%2Fbugs%2Fmodalg_6%2Fbug24417;h=171f325ecbb0a2fd661693773ec7b1e7d2b3fb59;hb=5fb5b5c43298418a30ed9c2ed8bdfd33b989776d;hpb=acb81c831423d3c47ef01880b2559b24c4ddb4e9

diff --git a/tests/bugs/modalg_6/bug24417 b/tests/bugs/modalg_6/bug24417
new file mode 100644
index 0000000000..171f325ecb
--- /dev/null
+++ b/tests/bugs/modalg_6/bug24417
@@ -0,0 +1,35 @@
+puts "============"
+puts "OCC24417"
+puts "============"
+puts ""
+#######################################################################
+# BRepAlgoAPI_Section fails on attached shapes
+#######################################################################
+
+restore [locate_data_file bug24417_circle.brep] a
+restore [locate_data_file bug24417_face.brep] b
+
+checkshape a
+checkshape b
+
+bop a b
+bopsection result
+
+set length 19.8372
+
+set nbshapes_expected "
+Number of shapes in shape
+ VERTEX : 2
+ EDGE : 1
+ WIRE : 0
+ FACE : 0
+ SHELL : 0
+ SOLID : 0
+ COMPSOLID : 0
+ COMPOUND : 1
+ SHAPE : 4
+
+"
+checknbshapes result -ref ${nbshapes_expected} -t -m "Result of BRepAlgoAPI_Section"
+
+set 2dviewer 1