tests/bugs/iges/buc60646

   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
  11 checkshape res r
  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
  54 set 2dviewer 0
  55
  56