525ec87c |
1 | puts "========" |
2 | puts "OCC26914" |
3 | puts "========" |
4 | puts "" |
5 | ################################# |
6 | # Hang in surface approximation |
7 | ################################# |
8 | |
9 | set max_time 2 |
10 | |
360f800b |
11 | restore [locate_data_file bug23943_s.draw] s |
525ec87c |
12 | |
13 | dchrono cr reset |
14 | dchrono cr start |
15 | approxsurf rs s 5e-5 0 0 15 15 100 0 |
16 | |
17 | dchrono cr stop |
18 | |
19 | set chrono_info [dchrono cr show] |
20 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $chrono_info full CPU_time |
21 | if { $CPU_time > ${max_time} } { |
22 | puts "Elapsed time of surface approximation is more than ${max_time} seconds - Error" |
23 | } else { |
24 | puts "Elapsed time of surface approximation is less than ${max_time} seconds - OK" |
25 | } |