Modified test case (increase cpulimit in Debug mode)

diff --git a/tests/bugs/caf/bug2793 b/tests/bugs/caf/bug2793
index 19649cb..ab7beb1 100644 (file)
--- a/tests/bugs/caf/bug2793
+++ b/tests/bugs/caf/bug2793
@@ -49,7 +49,7 @@ Close D
 # Check
 set info [dchrono h show]
 regexp {CPU user time: ([-0-9.+eE]+) seconds} $info full cpu_time
 # Check
 set info [dchrono h show]
 regexp {CPU user time: ([-0-9.+eE]+) seconds} $info full cpu_time

-if { $cpu_time > 50 } {
+if { $cpu_time > 100 } {

     puts "Error: performance saving document D is too low"
 } else {
     puts "OK: performance saving document D is high"
     puts "Error: performance saving document D is too low"
 } else {
     puts "OK: performance saving document D is high"

diff --git a/tests/bugs/step/bug24024 b/tests/bugs/step/bug24024
index bdbfbd7..9fc0c12 100644 (file)
--- a/tests/bugs/step/bug24024
+++ b/tests/bugs/step/bug24024
@@ -6,6 +6,14 @@ puts ""
 # Slow import of specific STEP data
 ######################################
 
 # Slow import of specific STEP data
 ######################################
 

+cpulimit 1700
+set ver [dversion]
+if { [regexp "Debug" $ver] != 1 } {
+    set cpu_check 450
+} else {
+    set cpu_check 1600
+}
+

 dchrono h reset
 dchrono h start
 stepread [locate_data_file bug24024_slow_import.stp] a *
 dchrono h reset
 dchrono h start
 stepread [locate_data_file bug24024_slow_import.stp] a *


@@ -15,7 +23,7 @@ tpcompound result
 
 set info [dchrono h show]
 regexp {CPU user time: ([-0-9.+eE]+) seconds} $info full cpu_time
 
 set info [dchrono h show]
 regexp {CPU user time: ([-0-9.+eE]+) seconds} $info full cpu_time

-if { $cpu_time > 300 } {
+if { $cpu_time > $cpu_check } {

     puts "Error: performance of import of data is low"
 } else {
     puts "OK: performance of import of data is high"
     puts "Error: performance of import of data is low"
 } else {
     puts "OK: performance of import of data is high"