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