0027569: [Regression in 6.9.0] Projecting a curve hangs

[occt.git] / tests / bugs / modalg_6 / bug27569

diff --git a/tests/bugs/modalg_6/bug27569 b/tests/bugs/modalg_6/bug27569
new file mode 100644 (file)
index 0000000..ece3f66
--- /dev/null
+++ b/tests/bugs/modalg_6/bug27569
@@ -0,0 +1,28 @@
+puts "============"
+puts "OCC27569"
+puts "============"
+puts ""
+######################################################
+# [Regression in 6.9.0] Projecting a curve hangs
+######################################################
+
+pload QAcommands
+
+restore [locate_data_file bug27569.brep] aS
+explode aS
+mkcurve c aS_1
+mksurface s aS_2
+
+# Performance check
+chrono h reset; chrono h start
+OCC24008 c s;
+chrono h stop; set q [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full aTime
+
+set MAX_TIME 1.0
+
+if { $aTime > ${MAX_TIME} } {
+    puts "Elapsed time is more than ${MAX_TIME} seconds - Faulty"
+} else {
+    puts "Elapsed time is less than ${MAX_TIME} seconds - OK"
+}