From bcb8fa43ea4f7d7a5817479656bba972b3ac747d Mon Sep 17 00:00:00 2001
From: mkv <mkv@opencascade.com>
Date: Fri, 25 Aug 2017 15:32:56 +0300
Subject: [PATCH] 0028157: Setting the tolerance of a face to a small value and
 then fixing it leads to a face with vertex-vertex intersections

Problem is not reproduced on current master. Issue must be closed on 7.2.0.
Test case was added only
---
 tests/bugs/modalg_7/bug28157 | 41 ++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 tests/bugs/modalg_7/bug28157

diff --git a/tests/bugs/modalg_7/bug28157 b/tests/bugs/modalg_7/bug28157
new file mode 100644
index 0000000000..6fed1e323a
--- /dev/null
+++ b/tests/bugs/modalg_7/bug28157
@@ -0,0 +1,41 @@
+puts "========"
+puts "OCC28157"
+puts "========"
+puts ""
+#######################################################################################################################
+# Setting the tolerance of a face to a small value and then fixing it leads to a face with vertex-vertex intersections
+#######################################################################################################################
+
+brunparallel 1
+
+restore [locate_data_file bug28157_init.brep] n
+whatis n
+tolerance n
+checkshape n
+bopcheck n
+
+restore [locate_data_file bug28157_solid.brep] s
+whatis s
+tolerance s
+checkshape s
+bopcheck s
+
+bop s n
+bopcommon r
+whatis r
+
+explode r
+whatis r_1
+tolerance r_1
+
+settolerance r_1 1e-7
+fixshape rr r_1
+tolerance rr
+checkshape rr
+
+set Log [bopcheck rr]
+if {[regexp "This shape seems to be OK" ${Log}] != 1} {
+    puts "Error: there are vertex-vertex intersections"
+}
+
+checkview -display rr -2d -path ${imagedir}/${test_image}.png