1puts "================"
2puts "OCC22915"
3puts "================"
4puts ""
5######################################################################################
6# xrash in iges reader TransferRoots()
7######################################################################################
8
9set BugNumber OCC22915
10
11igesread [locate_data_file OCC22915-brakes.igs] result *
12checkshape result
13set info [ tpstat c ]
14
15regexp {Nb Total:([-0-9.+eE]+)[ \t]*for ([-0-9.+eE]+) items} $info full total nb_items
16set word1 [string compare $nb_items "3"]
17set word2 [string compare $total "38"]
18
19if { ${word1} == 0 && ${word2} == 0 } {
20   puts "OK ${BugNumber}"
21} else {
22   puts "Faulty ${BugNumber}"
23}
24
25checkprops result -s 284190
26
27
28