From e22217108b337d3ebb586c1841d04c59d4dbfc39 Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Thu, 12 Dec 2013 19:09:41 +0400
Subject: [PATCH] Added test case bugs/modalg_5/bug24397

---
 tests/bugs/modalg_5/bug24397 | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 tests/bugs/modalg_5/bug24397

diff --git a/tests/bugs/modalg_5/bug24397 b/tests/bugs/modalg_5/bug24397
new file mode 100644
index 0000000000..9c2e43ae78
--- /dev/null
+++ b/tests/bugs/modalg_5/bug24397
@@ -0,0 +1,26 @@
+puts "============"
+puts "OCC24397"
+puts "============"
+puts ""
+#############################################
+# BRepBuilderAPI_Copy works not correct
+#############################################
+
+restore [locate_data_file case_1_wire3.brep] result
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full lp1
+tcopy result result1
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result1] full lp2
+
+if { $lp1 != $lp2 } {
+    puts "Error: lengths of original and copy shapes are not equal"
+} else {
+    puts "OK: lengths of original and copy shapes are equal"
+}
+
+set length 942.478
+set 2dviewer 0
+
+
+
+
+