tests/bugs/modalg/bug23125

   1 puts "================"
   2 puts "OCC23125"
   3 puts "================"
   4 puts ""
   5 ##########################################################################################
   6 # Wrong result done by classifier algorithm for a point and a solid
   7 ##########################################################################################
   8
   9 set BugNumber OCC23125
  10
  11 restore [locate_data_file bug23125_ref] b
  12 restore [locate_data_file bug23125_pref] p
  13 set info [ bclassify b p ]
  14
  15 # Resume
  16 puts ""
  17 if { [regexp "The point is IN shape" $info] != 1 } {
  18     puts "Faulty ${BugNumber}"
  19 } else {
  20     puts "OK ${BugNumber}"
  21 }
  22
  23 set 3dviewer 0