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