Adding test cases from chl grid
[occt.git] / tests / bugs / iges / bug448
1 puts "TODO OCC12345 ALL: Faulty OCC448: shape number is wrong"
2
3 puts "========"
4 puts " OCC448 "
5 puts "========"
6 puts ""
7 ############################################
8 ## wrong translation IGES file in "Only visible" mode
9 ############################################
10
11 if [catch { set list [igesbrep [locate_data_file Amino_172448-65210.igs] a * ] } res] {
12     puts "Faulty OCC448: here is reading problem"
13 } else {
14     tpcompound result
15     set ll [llength $list]
16     set NbShapes [lindex $list [expr $ll - 1]]
17
18   #
19   # ATANTION!!!!!!! FOR TESTING !!!!!!!
20   #
21     set GoodNbShapes 1
22     if { $NbShapes != $GoodNbShapes } {
23         puts "NbShapes=$NbShapes"
24         puts "GoodNbShapes=$GoodNbShapes"
25         puts "Faulty OCC448: shape number is wrong"
26     }
27 }
28
29 set 2dviewer 0
30
31