0024005: Intersecting a slightly off angle plane with a cylinder takes 7+ seconds
[occt.git] / tests / bugs / modalg_5 / bug24005
diff --git a/tests/bugs/modalg_5/bug24005 b/tests/bugs/modalg_5/bug24005
new file mode 100755 (executable)
index 0000000..43d6dcc
--- /dev/null
@@ -0,0 +1,35 @@
+puts "============"
+puts "OCC24005"
+puts "============"
+puts ""
+###############################
+## Intersecting a slightly off angle plane with a cylinder takes 7+ seconds
+###############################
+
+pload QAcommands
+
+dchrono h reset
+dchrono h start
+
+OCC24005 result
+
+dchrono h stop
+set q [dchrono h show]
+
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
+puts "$z"
+
+set max_time 0.1
+if { $z > ${max_time} } {                                         
+    puts "Elapsed time is more than ${max_time} seconds - Faulty"
+} else {
+    puts "Elapsed time is less than ${max_time} seconds - OK"
+}
+
+if { [regexp {Ellipse} [dump result]] == 1 } {
+    puts "result is OK"
+} else {
+    puts "result is Faulty"
+}
+
+set 2dviewer 1