0e94a94e |
1 | puts "===============" |
2 | puts "BUC60646" |
3 | puts "===============" |
4 | puts "==================================" |
5 | puts "It takes visual check for this BUG" |
6 | puts "==================================" |
7 | |
8 | set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] |
9 | |
10 | tpcompound res |
352ffd73 |
11 | checkshape res r |
0e94a94e |
12 | |
13 | tcopy res result |
14 | |
15 | set start [lindex $l 60] |
16 | set bug_list_numb [ llength $l ] |
17 | set bug_list_elem 0 |
18 | |
19 | # Search word sequence: Nb entities selected : XXXX |
20 | while { $bug_list_elem < $bug_list_numb } { |
21 | if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } { |
22 | set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ] |
23 | set bug_list_elem [ expr { $bug_list_numb - 1 } ] |
24 | } |
25 | set bug_list_elem [ expr { $bug_list_elem + 1 } ] |
26 | } |
27 | |
28 | # Search word sequence: Nb Shapes successfully produced : XXXX |
29 | set end [lindex $l 0] |
30 | set bug_list_elem 0 |
31 | while { $bug_list_elem < $bug_list_numb } { |
32 | set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ] |
33 | set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ] |
34 | set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ] |
35 | set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ] |
36 | set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ] |
37 | if { [ string compare "Nb" ${word_0} ] == 0 && |
38 | [ string compare "Shapes" ${word_1} ] == 0 && |
39 | [ string compare "successfully" ${word_2} ] == 0 && |
40 | [ string compare "produced" ${word_3} ] == 0 && |
41 | [ string compare ":" ${word_4} ] == 0 } { |
42 | set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ] |
43 | set bug_list_elem [ expr { $bug_list_numb - 1 } ] |
44 | } |
45 | set bug_list_elem [ expr { $bug_list_elem + 1 } ] |
46 | } |
47 | |
48 | if { $start != $end } { |
49 | puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)" |
50 | } else { |
51 | puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)" |
52 | } |
53 | |
5747059b |
54 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
0e94a94e |
55 | |
56 | |