From 0fbfbd6029c94cc6e65a37616d82c0d09d40374d Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Fri, 4 Apr 2014 16:26:26 +0400
Subject: [PATCH] 0024731: Incomplete section of a surface by plane

Added test case bugs/modalg_5/bug24731
---
 tests/bugs/modalg_5/bug24731 | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 tests/bugs/modalg_5/bug24731

diff --git a/tests/bugs/modalg_5/bug24731 b/tests/bugs/modalg_5/bug24731
new file mode 100644
index 0000000000..f9b879ff67
--- /dev/null
+++ b/tests/bugs/modalg_5/bug24731
@@ -0,0 +1,26 @@
+puts "============"
+puts "OCC24731"
+puts "============"
+puts ""
+######################################################
+# Incomplete section of a surface by plane
+######################################################
+
+restore [locate_data_file bug24731_bot1.brep] b
+restore [locate_data_file bug24731_lim1.brep] l
+
+bsection result b l -n2d2
+
+set length 93.2392
+
+set nb_v_good 4
+set nb_e_good 3
+set nb_w_good 0
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 8
+
+set 2dviewer 1