# Fuse problem of symetrical shapes. Appendix for NPAL19789
#######################################################################
-cpulimit 1000
+cpulimit 2500
set BugNumber OCC19793
puts "Load first shape ..."
# Performance verification of bop operation
set chrono_info [dchrono perf_h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $chrono_info full CPU_time
-set currentOS $tcl_platform(os)
-if {[string compare $currentOS "Windows NT"] == 0} {
- puts "Checking WINDOWS performance..."
- # Initial CPU_time is 92-94 seconds for Windows
- if {$CPU_time > 200.} {
- puts "ERROR: OCC23753 is reproduced."
- puts " Low performance: $CPU_time"
+
+if { [regexp {Debug mode} [dversion]] } {
+ if { [regexp {Windows} [dversion]] } {
+ puts "Checking WINDOWS performance..."
+ if {$CPU_time > 1000.} {
+ puts "ERROR: OCC23753 is reproduced."
+ puts " Low performance: $CPU_time"
+ }
+ } else {
+ puts "Checking LINUX performance..."
+ if {$CPU_time > 2500.} {
+ puts "ERROR: OCC23753 is reproduced."
+ puts " Low performance: $CPU_time"
+ }
}
-}
-if {[string compare $currentOS "Linux"] == 0} {
- puts "Checking LINUX performance..."
- # Initial CPU_time is 287-289 seconds for Linux
- if {$CPU_time > 250.} {
- puts "ERROR: OCC23753 is reproduced."
- puts " Low performance: $CPU_time"
+} else {
+ if { [regexp {Windows} [dversion]] } {
+ puts "Checking WINDOWS performance..."
+ # Initial CPU_time is 92-94 seconds for Windows
+ if {$CPU_time > 200.} {
+ puts "ERROR: OCC23753 is reproduced."
+ puts " Low performance: $CPU_time"
+ }
+ } else {
+ puts "Checking LINUX performance..."
+ # Initial CPU_time is 287-289 seconds for Linux
+ if {$CPU_time > 250.} {
+ puts "ERROR: OCC23753 is reproduced."
+ puts " Low performance: $CPU_time"
+ }
}
}