Adding test cases from chl grid
[occt.git] / tests / bugs / iges / buc60823
CommitLineData
e54706ed 1### by apn on IR-2012-12-21
2##if { [array get env os_type] != "" } {
3## set os $env(os_type)
4##}
5##if { [string compare $os "windows"] != 0 } {
6## puts "TODO OCC12345 ALL: An exception was caught"
7## puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
8## puts "TODO OCC12345 ALL: TEST INCOMPLETE"
9##}
10
0e94a94e 11puts "========================"
12puts "BUC60823"
13puts "========================"
14
15igesbrep [locate_data_file buc60823.igs] a *
16
17tpcompound result
352ffd73 18checkshape result
19checkshape result r
0e94a94e 20
21tclean result
22vinit
23vdisplay result
24vsetdispmode result 1
25vfit
26
27set info [trinfo result]
28regexp { +([-0-9.+eE]+) +triangles} $info full tri
29regexp { +([-0-9.+eE]+) +nodes} $info full nod
30
31if { $tri != 17618 || $nod != 11153 } {
32 puts "Shading problem may be, nb tri & nod are changed"
33}
34
35set 2dviewer 0
36