Integration part of tests of grid chl
[occt.git] / tests / bugs / iges / bug60625
1 puts "===================="
2 puts "BUC60625"
3 puts "===================="
4 puts "=================================="
5 puts "It takes visual check for this BUG"
6 puts "=================================="
7
8 cpulimit 1500
9
10 set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] 
11
12 tpcompound result
13 puts [checkshape result r]
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
54 set 2dviewer 0
55