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 | |
5747059b |
24 | checkview -display result -2d -path ${imagedir}/${test_image}.png |