X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=tests%2Fbugs%2Fmodalg_5%2Fbug23881;h=15ca2a7a743e2911d6f14b25433d2861605f6e37;hb=7a9d451a983004c47c65529cfd505d8920a600e9;hpb=275e812f4a42c2f1bb266c188872310771284662

diff --git a/tests/bugs/modalg_5/bug23881 b/tests/bugs/modalg_5/bug23881
new file mode 100644
index 0000000000..15ca2a7a74
--- /dev/null
+++ b/tests/bugs/modalg_5/bug23881
@@ -0,0 +1,32 @@
+puts "============"
+puts "OCC23881"
+puts "============"
+puts ""
+############################################################################
+# BRepAlgoAPI_Section HasAnsectorFaceOn1 returned False on the boundary
+############################################################################
+
+polyline w1 0 0 0 1 0 0 1 1 0 0 1 0 0 0 0 
+polyline w2 0 1 0 1 1 0 1 2 0 0 2 0 0 1 0
+mkplane f1 w1
+mkplane f2 w2
+sewing s1 0.0001 f1 f2
+
+plane pl 0 1 0 0 1 0
+mkface f3 pl
+
+bsection r s1 f3
+
+# check that section edge (r) is the edge from original shape (s1)
+compound r s1 c
+if { ! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes s1] str nbedges_s1] ||
+     ! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes c ] str nbedges_c] } {
+    error "Could not get number of edges from resulting shapes"
+}
+ 
+if { $nbedges_s1 != $nbedges_c } {
+    puts "Error: section does not share common edge with original shape"
+}
+
+renamevar r result
+set 2dviewer 0