tests/bugs/modalg_2/bug23008

   1 puts "================"
   2 puts "OCC23008"
   3 puts "================"
   4 puts ""
   5 ######################################################################################
   6 # Too many intersection vertices between line and cylinder
   7 ######################################################################################
   8
   9 set BugNumber OCC23008
  10
  11 restore [locate_data_file bug23008_ez15] b1
  12 restore [locate_data_file bug23008_fz37] b2
  13 bclearobjects; bcleartools
  14 baddobjects b1; baddtools b2
  15 bfillds
  16 set info [ bopnews v ]
  17 for {set i 0} {$i <= 100} {incr i} {
  18     set word [lsearch $info z$i]
  19     if {$word == -1} {
  20         lappend check_z 0
  21     } else {
  22         lappend check_z 1
  23     }
  24 }
  25
  26 # Resume
  27 puts ""
  28 set result [lsearch $check_z 1]
  29 if { ${result} == -1 } {
  30    puts "OK ${BugNumber}"
  31 } else {
  32    puts "Faulty ${BugNumber}"
  33 }
  34
  35 set 3dviewer 0
  36