3bea4c16 |
1 | puts "============" |
2 | puts "OCC21858" |
3 | puts "============" |
4 | puts "" |
5 | #################################### |
6 | # Visualization hangs on this face ( OCC21858.brep ) |
7 | #################################### |
8 | |
9 | set BugNumber OCC21858 |
10 | cpulimit 40 |
11 | restore [locate_data_file OCC21858.brep] result |
12 | |
13 | set length 6.48642 |
14 | |
15 | set nb_v_good 9 |
16 | set nb_e_good 10 |
17 | set nb_w_good 1 |
18 | set nb_f_good 1 |
19 | set nb_sh_good 0 |
20 | set nb_sol_good 0 |
21 | set nb_compsol_good 0 |
22 | set nb_compound_good 0 |
23 | set nb_shape_good 21 |
24 | |
25 | set only_screen 0 |
26 | |
27 | vinit |
28 | vsetdispmode 1 |
29 | dchrono TestTimer reset |
30 | dchrono TestTimer start |
31 | vdisplay result |
32 | dchrono TestTimer stop |
33 | vfit |
34 | puts "" |
35 | set time_o 0.1 |
36 | set tim [ dchrono TestTimer show ] |
37 | regexp {Elapsed time: +([-0-9.+eE]+) Hours +([-0-9.+eE]+) Minutes +([-0-9.+eE]+) Seconds} $tim full hourVDisplay minuVDisplay secoVDisplay |
38 | |
39 | set timVDisplay [expr $hourVDisplay * 3600 + $minuVDisplay * 60 + $secoVDisplay ] |
40 | |
41 | if { ${tim} < ${time_o} } { |
42 | set chro "CHRONO : Faulty (${timVDisplay}%)" |
43 | set status 1 |
44 | puts ${chro} |
45 | } else { |
46 | puts "${BugNumber} OK" |
47 | set status 0 |
48 | } |
49 | puts "timVDisplay = ${timVDisplay}" |
50 | |