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 bop b1 b2
  14 set info [ bopnews -v ]
  15 for {set i 0} {$i <= 100} {incr i} {
  16     set word [lsearch $info z$i]
  17     if {$word == -1} {
  18         lappend check_z 0
  19     } else {
  20         lappend check_z 1
  21     }
  22 }
  23
  24 # Resume
  25 puts ""
  26 set result [lsearch $check_z 1]
  27 if { ${result} == -1 } {
  28    puts "OK ${BugNumber}"
  29 } else {
  30    puts "Faulty ${BugNumber}"
  31 }
  32
  33 set 3dviewer 0
  34