puts "============" puts "BUC60685" puts "============" puts "" cpulimit 1500 set l [igesbrep [locate_data_file buc60685a.igs] a xst-transferrable-roots] tpcompound result checkshape result r regexp {List given by xst-transferrable-roots : Nb entities selected : +([-0-9+eE]+)} ${l} full start regexp {List given by xst-transferrable-roots : Nb entities selected : +([-0-9+eE]+)} ${l} full end puts "start = ${start}" puts "end = ${end}" if { ${start} == ${end} && ${start} == 19 } { puts "BUC60685: OK" } else { puts "Faulty : wrong number of translated shapes. It is ${end} instead of ${start}" puts "BUC60685: Faulty" } set 2dviewer 0