puts "========"
puts "OCC26310"
puts "========"
puts ""
#################################################
# Very slow boolean cut operations on cylinders
#################################################

if { [regexp {Debug mode} [dversion]] } {
    set max_time 0.3
} else {
    set max_time 0.15
}

set maxToler 1.5e-5

restore [locate_data_file OCC26310-b1.brep] b1 
restore [locate_data_file OCC26310-b2.brep] b2 

explode b1 f
explode b2 f

dchrono cr reset
dchrono cr start
set log1 [bopcurves b1_1 b2_1 -2d]
dchrono cr stop

regexp {Tolerance Reached=+([-0-9.+eE]+)} ${log1} full Toler

puts "TolReached = $Toler"

if { $Toler > $maxToler } {
  puts "Error: Tolerance is too big ($Toler > $maxToler)"
}

set log2 [dchrono cr show]

regexp {CPU user time: ([-0-9.+eE]+) seconds} $log2 full sec

if { $sec > ${max_time} } {
    puts "Error: CPU user time is more than ${max_time} seconds"
} else {
    puts "OK: CPU user time is less than ${max_time} seconds"
}
