0028324: Configuration, genproj.tcl - compilation error while targeting OS X 10.8...
[occt.git] / tests / bugs / mesh / bug27119
1 puts "========"
2 puts "OCC27119"
3 puts "========"
4 puts ""
5 ###########################################
6 ## Regression: Draw command "incmesh" hangs on the attacheced face.
7 ###########################################
8
9 set BugNumber OCC27119
10
11 restore [locate_data_file bug27119_GrossPlatePart3Step2TransformedFace.brep] result
12
13 dchrono t reset
14 dchrono t start
15 incmesh result 1.e-6
16 dchrono t stop
17 set time [dchrono t show]
18 regexp {CPU user time: ([0-9|.]+) seconds} $time full seconds
19
20 set tri 0
21 set nod 0
22 set def 0
23
24 set tri_info [trinfo result]
25 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
26 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
27 regexp { deflection +([-0-9.+eE]+)} $tri_info full def
28
29 set ref_tri 7855
30 set ref_nod 7857
31 set ref_def 9.3791641120333225e-013
32 set tol_rel 0.01
33
34 # Computes deviation of the value from specified one
35 checkreal "Nb of triangles" $tri $ref_tri 0 $tol_rel
36 checkreal "Nb of nodes" $nod $ref_nod 0 $tol_rel
37 checkreal "Deflection" $def $ref_def 1.e-12 0
38
39 set eps_time 3
40 if { $seconds > $eps_time } {
41   puts "Error: Too slow ($seconds > $eps_time)"
42 }
43
44 set 3dviewer 1