-puts "TODO DEBUG_OCC24121 Debian60-64: Process killed by CPU limit"
-puts "TODO DEBUG_OCC24121 Debian60-64: TEST INCOMPLETE"
+#puts "TODO DEBUG_OCC24121 Debian60-64: Process killed by CPU limit"
+#puts "TODO DEBUG_OCC24121 Debian60-64: TEST INCOMPLETE"
restore [locate_data_file lh3d_px1.brep] a
-puts "TODO DEBUG_OCC24121 Debian60-64 Windows: Process killed by CPU limit"
-puts "TODO DEBUG_OCC24121 Debian60-64 Windows: TEST INCOMPLETE"
+#puts "TODO DEBUG_OCC24121 Debian60-64 Windows: Process killed by CPU limit"
+#puts "TODO DEBUG_OCC24121 Debian60-64 Windows: TEST INCOMPLETE"
restore [locate_data_file lh3d_px1.brep] a
-puts "TODO DEBUG_OCC24121 Debian60-64 Windows: Process killed by CPU limit"
-puts "TODO DEBUG_OCC24121 Debian60-64 Windows: TEST INCOMPLETE"
+#puts "TODO DEBUG_OCC24121 Debian60-64 Windows: Process killed by CPU limit"
+#puts "TODO DEBUG_OCC24121 Debian60-64 Windows: TEST INCOMPLETE"
#puts "TODO #23749 ALL: Faulty shapes in variables faulty_1 to faulty_"
-cpulimit 2000
+cpulimit 3500
+
restore [locate_data_file lh3d_px2.brep] a
compound result
set i 1
# http://www.opencascade.org/org/forum/thread_12369/?forum=3
# in OCCT 6.6.0 32-bit mode on Windows this fails with N >= 40 (out of memory)
+if { [regexp {Debug mode} [dversion]] } {
+ cpulimit 2000
+ set max_time 1500
+} else {
+ cpulimit 500
+ set max_time 250
+}
+
# box plate to cut the holes from
box b 100 100 1
}
regexp {CPU user time: ([-0-9.+eE]+) seconds} ${q2} full z
-if { [string compare $tcl_platform(platform) "windows"] == 0 } {
- puts "OS = Windows NT"
- set max_time 200
-} else {
- puts "OS = Linux"
- set max_time 250
-}
if { ${z} > ${max_time} } {
puts "Elapsed time is more than ${max_time} seconds - Faulty"
} else {
# Test performance of intersection of several NURBS surfaces
+if { [regexp {Debug mode} [dversion]] } {
+ cpulimit 1000
+} else {
+ cpulimit 500
+}
+
bsplinesurf surf1 \
3 4 0 4 1 1 2 1 3 4 \
3 4 0 4 1 1 2 1 3 4 \