puts "============" puts "OCC24005" puts "============" puts "" ############################### ## Intersecting a slightly off angle plane with a cylinder takes 7+ seconds ############################### pload QAcommands dchrono h reset dchrono h start OCC24005 result dchrono h stop set q [dchrono h show] regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z puts "$z" set max_time 0.4 if { $z > ${max_time} } { puts "Elapsed time is more than ${max_time} seconds - Faulty" } else { puts "Elapsed time is less than ${max_time} seconds - OK" } if { [regexp {Ellipse} [dump result]] == 1 } { puts "result is OK" } else { puts "result is Faulty" } set 2dviewer 1