[occt.git] / tests / bugs / iges / buc60685

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
Commit	Line	Data
0e94a94e	1	puts "============"
	2	puts "BUC60685"
	3	puts "============"
	4	puts ""
	5
	6	cpulimit 1500
	7
	8	set l [igesbrep [locate_data_file buc60685a.igs] a xst-transferrable-roots]
	9
	10	tpcompound result
352ffd73	11	checkshape result r
0e94a94e	12
fa350ff0	13	regexp {List given by xst-transferrable-roots : Nb entities selected : +([-0-9+eE]+)} ${l} full start
	14	regexp {List given by xst-transferrable-roots : Nb entities selected : +([-0-9+eE]+)} ${l} full end
	15	puts "start = ${start}"
	16	puts "end = ${end}"
	17	if { ${start} == ${end} && ${start} == 19 } {
	18	puts "BUC60685: OK"
	19	} else {
	20	puts "Faulty : wrong number of translated shapes. It is ${end} instead of ${start}"
	21	puts "BUC60685: Faulty"
0e94a94e	22	}
	23
	24	set 2dviewer 0