From e1cbc34c5f384b6611511bebe7ff68f58642cfd2 Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Mon, 20 Oct 2014 16:00:44 +0400
Subject: [PATCH] 0023698: BRepBuilderAPI_Copy creates invalid copy

Added test case bugs/modalg_5/bug23698
---
 tests/boolean/bcommon_2d/A7  |  5 -----
 tests/bugs/modalg_5/bug23698 | 24 ++++++++++++++++++++++++
 2 files changed, 24 insertions(+), 5 deletions(-)
 create mode 100644 tests/bugs/modalg_5/bug23698

diff --git a/tests/boolean/bcommon_2d/A7 b/tests/boolean/bcommon_2d/A7
index 7c1b60b83b..eae2028f4b 100755
--- a/tests/boolean/bcommon_2d/A7
+++ b/tests/boolean/bcommon_2d/A7
@@ -4,8 +4,3 @@ bcommon result b a
 set length 942.478
 set nbsh_v 2
 set nbsh_e 2
-
-# OCC23698
-tcopy result r
-lprops result
-lprops r
diff --git a/tests/bugs/modalg_5/bug23698 b/tests/bugs/modalg_5/bug23698
new file mode 100644
index 0000000000..07d0dd0279
--- /dev/null
+++ b/tests/bugs/modalg_5/bug23698
@@ -0,0 +1,24 @@
+puts "========"
+puts "OCC23698"
+puts "========"
+puts ""
+##############################################
+# BRepBuilderAPI_Copy creates invalid copy
+##############################################
+
+restore [locate_data_file case_1_solid.brep] a
+restore [locate_data_file case_1_wire3.brep] b
+bcommon result b a
+tcopy result r
+
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full anEdge
+if { ${anEdge} == 0 } {
+  puts "Error: Common operation is wrong"
+}
+
+regexp {Mass +: +([-0-9.+eE]+)} [lprops r] full aCopyEdge
+if { ${anEdge} != ${aCopyEdge} } {
+  puts "Error: Copy is wrong"
+} else {
+  puts "OK: Copy is correct"
+}