From ff1541f179ddb2c9ab69aab2cba27c5d70229612 Mon Sep 17 00:00:00 2001
From: msv <msv@opencascade.com>
Date: Fri, 28 Oct 2016 18:20:03 +0300
Subject: [PATCH] 0026673: BOPTools_AlgoTools::ComputeVV incorrectly checks two
 vertices for intersection

Test case has been created.
---
 tests/bugs/modalg_6/bug26673 | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tests/bugs/modalg_6/bug26673

diff --git a/tests/bugs/modalg_6/bug26673 b/tests/bugs/modalg_6/bug26673
new file mode 100644
index 0000000000..c39576c3dc
--- /dev/null
+++ b/tests/bugs/modalg_6/bug26673
@@ -0,0 +1,15 @@
+puts "============"
+puts "OCC26673"
+puts "============"
+puts ""
+##################################
+#  BOPTools_AlgoTools::ComputeVV incorrectly checks two vertices for intersection
+##################################
+
+box b -1 -1 0 2 2 2e-7+1e-14
+set out [bopargcheck b /RFPCS #F]
+if [regexp {Self-Intersections *: YES} $out] {
+  puts "OK: bopargcheck found the shape self-intersecting"
+} else {
+  puts "Error: bopargcheck must report self-intersections, but it did not"
+}