From 244587f4132ace2394a59c53b87d0b79f4dbbebe Mon Sep 17 00:00:00 2001
From: bugmaster <bugmaster@opencascade.com>
Date: Mon, 29 Apr 2013 16:13:25 +0400
Subject: [PATCH] 0023402: Issue in BRepAlgoAPI_Common - SOLID and FACE

Added test case bugs/modalg_5/bug23402

Rebased on current state of master
---
 tests/bugs/modalg_5/bug23402 | 41 ++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 tests/bugs/modalg_5/bug23402

diff --git a/tests/bugs/modalg_5/bug23402 b/tests/bugs/modalg_5/bug23402
new file mode 100644
index 0000000000..62bd017e9f
--- /dev/null
+++ b/tests/bugs/modalg_5/bug23402
@@ -0,0 +1,41 @@
+puts "============"
+puts "OCC23402"
+puts "============"
+puts ""
+##################################################
+# Issue in BRepAlgoAPI_Common - SOLID and FACE
+##################################################
+
+polyline l 0 0 0 0 5 0 0 5 5 0 3 5 0 3 3 0 2 3 0 2 5 0 0 5 0 0 0
+mkplane sf l
+prism s sf 5 0 0
+polyline w1 -2 2.5 2 7 2.5 2 7 7 2 -2 7 2 -2 2.5 2
+mkplane f1 w1
+bop s f1
+bopcommon c1
+ttranslate c1 0 0 5
+polyline w2 -2 2.5 3 7 2.5 3 7 7 3 -2 7 3 -2 2.5 3
+mkplane f2 w2
+bop s f2
+bopcommon c2
+ttranslate c2 0 0 5
+polyline w3 -2 2.5 4 7 2.5 4 7 7 4 -2 7 4 -2 2.5 4
+mkplane f3 w3
+bop s f3
+bopcommon c3
+ttranslate c3 0 0 5
+
+regexp {Mass +: +([-0-9.+eE]+)} [sprops c1] full sq1
+regexp {Mass +: +([-0-9.+eE]+)} [sprops c2] full sq2
+regexp {Mass +: +([-0-9.+eE]+)} [sprops c3] full sq3
+
+if { $sq1 != 12.5 || $sq2 != 12.5 || $sq3 != 10 } {
+    puts "Error : c1 and c2 should be indeticall"
+} else {
+    puts "OK : c1 and c2 are identicall"
+}
+
+mu4
+fit
+
+set 2dviewer 1