5 ###########################################################
6 # TopExp::Vertices performance optimization
7 ###########################################################
11 if { [regexp {Debug mode} [dversion]] } {
12 if { [regexp {Windows} [dversion]] } {
20 if { [regexp {Windows} [dversion]] } {
29 restore [locate_data_file bug27021_shape.brep] f
33 regexp {Retrieving 100000000 vertices using approach A\)\.\.\.done in ([-0-9.+eE]+) seconds} ${log} full A_sec
34 regexp {Retrieving 100000000 vertices using approach B\)\.\.\.done in ([-0-9.+eE]+) seconds} ${log} full B_sec
37 if { ${A_sec} > ${max_time} } {
38 puts "Retrieving 100000000 vertices using approach A) is more than ${max_time} seconds - Faulty"
40 puts "Retrieving 100000000 vertices using approach A) is less than ${max_time} seconds - OK"
43 if { ${B_sec} > ${max_time2} } {
44 puts "Retrieving 100000000 vertices using approach A) is more than ${max_time2} seconds - Faulty"
46 puts "Retrieving 100000000 vertices using approach A) is less than ${max_time2} seconds - OK"