From a9e4846fe4686cca9695e5be590598cb8803fe3a Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Tue, 23 Jul 2013 16:45:28 +0400
Subject: [PATCH] 0024022: Slow meshing in BRepMesh

Added test case bugs/mesh/bug24022
---
 tests/bugs/mesh/bug24022 | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 tests/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
+
+
+
-- 
2.39.5