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 7c1b60b83b06e7482d08297d2c66b6d1a243de6e..eae2028f4bb134aea5ed1a16443f4fbb1fbd39c7 100755 (executable)
--- 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 (file)
index 0000000..07d0dd0
--- /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"
+}