From: apn <apn@opencascade.com>
Date: Tue, 23 Jul 2013 12:45:28 +0000 (+0400)
Subject: 0024022: Slow meshing in BRepMesh
X-Git-Tag: V6_7_0_beta~190
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=a9e4846fe4686cca9695e5be590598cb8803fe3a;p=occt-copy.git

0024022: Slow meshing in BRepMesh

Added test case bugs/mesh/bug24022
---

diff --git a/tests/bugs/mesh/bug24022 b/tests/bugs/mesh/bug24022
new file mode 100644
index 0000000000..17ffdcc14f
--- /dev/null
+++ b/tests/bugs/mesh/bug24022
@@ -0,0 +1,30 @@
+puts "=========="
+puts "OCC24022"
+puts "=========="
+puts ""
+#####################################
+# Slow meshing in BRepMesh
+#####################################
+
+restore [locate_data_file bug24022_hung_mesh.brep] result
+tclean result
+dchrono h reset
+dchrono h start
+incmesh result 0.1
+dchrono h stop
+set info [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $info full cpu_time
+if { $cpu_time > 3. } {
+    puts "Error : meshing is slow"
+} else {
+    puts "OK: meshing is quite fast"
+}
+vinit
+vdisplay result
+vfit
+vsetdispmode 1
+
+set only_screen 1
+
+
+