tests/bugs/modalg_2/bug23089

   1 puts "================"
   2 puts "OCC23089"
   3 puts "================"
   4 puts ""
   5 ##########################################################################################
   6 # Wrong result done by solid classifier algorithm
   7 ##########################################################################################
   8
   9 set BugNumber OCC23089
  10
  11 restore [locate_data_file bug23088_Pipe_1.brep] b2
  12 restore [locate_data_file bug23089_px.draw] px
  13 set info [ bclassify b2 px ]
  14 set word1 [string compare [lindex ${info} end] "shape"]
  15 set word2 [string compare [lindex ${info} end-1] "IN"]
  16 set word3 [string compare [lindex ${info} end-2] "is"]
  17 set word4 [string compare [lindex ${info} end-3] "point"]
  18 set word5 [string compare [lindex ${info} end-4] "The"]
  19
  20 # Resume
  21 puts ""
  22 if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 && ${word4} == 0 && ${word5} == 0 } {
  23    puts "OK ${BugNumber}"
  24 } else {
  25    puts "Faulty ${BugNumber}"
  26 }