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