Adding test cases from chl grid
[occt.git] / tests / bugs / iges / buc60625
CommitLineData
0e94a94e 1puts "===================="
2puts "BUC60625"
3puts "===================="
4puts "=================================="
5puts "It takes visual check for this BUG"
6puts "=================================="
7
8cpulimit 1500
9
10set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots]
11
12tpcompound result
352ffd73 13checkshape result r
0e94a94e 14
15set start [lindex $l 60]
16set bug_list_numb [ llength $l ]
17set bug_list_elem 0
18
19# Search word sequence: Nb entities selected : XXXX
20while { $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
29set end [lindex $l 0]
30set bug_list_elem 0
31while { $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
48if { $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
54set 2dviewer 0
55