f93ece93037fb3fda6593131bc7080b2558011a2
[occt.git] / tests / bugs / mesh / bug23105
1 puts "================"
2 puts "CR23105"
3 puts "================"
4 puts ""
5 ###############################################
6 ## Exception during Meshing / Missing triangles
7 ###############################################
8
9 restore [locate_data_file bug23105_f372.brep] result
10 checkshape result
11
12 incmesh result 0.1
13 set trinfo_s [trinfo result]
14 regexp {([0-9]+) triangles} $trinfo_s str nbtri_s
15 regexp {deflection ([0-9.+e-]+)} $trinfo_s str defl_s
16
17 # check deflections
18 if { $defl_s > 0.1 } {
19     puts "Error: too big deflection ($defl_s > 0.1)"
20 }
21
22 # compare number of triangles
23 if { $nbtri_s == 0 } {
24     puts "Error: shape contains 0 triangles"
25 }