From d4db985b5e878c9ae06b95c637286b0152f455cf Mon Sep 17 00:00:00 2001
From: emv <emv@opencascade.com>
Date: Wed, 12 Dec 2018 08:07:29 +0300
Subject: [PATCH] 0030395: DRAW bop: Some sub-shapes of some of the argument
 become connected through other shapes and the argument became
 self-interfered.

Integrating only test case for the issue as it is not reproduced any more.
---
 tests/bugs/modalg_7/bug30395 | 43 ++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 tests/bugs/modalg_7/bug30395

diff --git a/tests/bugs/modalg_7/bug30395 b/tests/bugs/modalg_7/bug30395
new file mode 100644
index 0000000000..ac2fe1d4bf
--- /dev/null
+++ b/tests/bugs/modalg_7/bug30395
@@ -0,0 +1,43 @@
+puts "========"
+puts "0030395: DRAW bop: Some sub-shapes of some of the argument become connected through other shapes and the argument became self-interfered."
+puts "========"
+puts ""
+
+restore [locate_data_file bug30395_s1.brep] s1
+restore [locate_data_file bug30395_fds.brep] fds
+
+bclearobjects
+bcleartools
+baddobjects s1
+baddtools fds
+bfillds
+
+bbop rcommon 0
+bbop rfuse 1
+bbop rcut 2
+bbop rcut21 3
+bbop rsection 4
+
+foreach r {rcommon rfuse rcut rcut21 rsection} {
+  checkshape $r
+  if {![regexp "OK" [bopcheck $r]]} {
+    puts "Error: $r is self-interfered shape"
+  }
+}
+
+checknbshapes rcommon -wire 8 -face 8 -shell 1 -solid 1
+checkprops rcommon -s 11331.9 -v 30686.2
+
+checknbshapes rfuse -wire 14 -face 12 -shell 1 -solid 1
+checkprops rfuse -s 105935 -v 362551
+
+checknbshapes rcut -wire 14 -face 12 -shell 1 -solid 1
+checkprops rcut -s 21665.6 -v 25031.2
+
+checknbshapes rcut21 -wire 8 -face 8 -shell 1 -solid 1
+checkprops rcut21 -s 95601 -v 306833
+
+checksection rsection -r 0
+checkprops rsection -l 554.848
+
+checkview -display rcommon -2d -path ${imagedir}/${test_image}.png