d633fd70 |
1 | puts "============" |
2 | puts "OCC23906" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Performance of the projection algorithm in some cases became lower after integration of the fix for the bug 0022610 |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug23906_f.brep] f |
10 | |
11 | point p 3.5527136788005e-015 100 100 |
12 | |
13 | dchrono h reset |
14 | dchrono h start |
15 | |
16 | projponf f p -min -t |
17 | |
18 | dchrono h stop |
19 | set q2 [dchrono h show] |
20 | |
21 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z |
22 | puts "$z" |
23 | if { [string compare $tcl_platform(platform) "windows"] == 0 } { |
24 | puts "OS = Windows NT" |
c9fb8529 |
25 | set max_time 0.5 |
d633fd70 |
26 | } else { |
27 | puts "OS = Linux" |
28 | set max_time 0.1 |
29 | } |
30 | if { $z > ${max_time} } { |
b58dfc5e |
31 | puts "Elapsed time is more than ${max_time} seconds - Faulty" |
d633fd70 |
32 | } else { |
b58dfc5e |
33 | puts "Elapsed time is less than ${max_time} seconds - OK" |
d633fd70 |
34 | } |