Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug19_1
1 puts "================"
2 puts "OCC19"
3 puts "================"
4 puts ""
5
6 restore [locate_data_file OCC19.brep] result
7 puts [checkshape result]
8
9 tclean result
10 incmesh result .9
11 triangles result
12
13 set info [trinfo result]
14 regexp { +([-0-9.+eE]+) +triangles} $info full tri
15 regexp { +([-0-9.+eE]+) +nodes} $info full nod
16
17 if { $tri != 88 && $nod != 90 }  {
18   puts "Faulty OCC19: here is shading problem"
19 }
20
21 set 3dviewer 0
22