From: apn <apn@opencascade.com>
Date: Mon, 20 Oct 2014 12:00:44 +0000 (+0400)
Subject: 0023698: BRepBuilderAPI_Copy creates invalid copy
X-Git-Tag: V6_8_0~81
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=e1cbc34c5f384b6611511bebe7ff68f58642cfd2;p=occt-copy.git

0023698: BRepBuilderAPI_Copy creates invalid copy

Added test case 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"
+}