Adding test cases from chl grid
[occt.git] / tests / bugs / xde / bug21124
1 puts "========"
2 puts "OCC21124"
3 puts "========"
4 puts ""
5 ######################################################
6 # Mapping between IGES entinties and result shapes is lost on attached file.
7 ######################################################
8
9 set BugNumber OCC21124
10
11 if [catch { igesbrep [locate_data_file OCC21124.igs] a *} catch_result] {
12   puts "Error ${BugNumber}: there is reading problem"
13 } else {
14   whatis a
15   explode a
16   whatis a_91
17   explode a_91
18   set l [fromshape a_91_3]
19   regexp {type : +([-0-9.+eE]+)} $l full type
20   if { ${type} != 408 } {
21     puts "Faulty ${BugNumber}"
22   } else {
23     puts "OK ${BugNumber}"
24   }
25 }
26 renamevar a_91_3 result
27 set square 74027
28 set 2dviewer 0