tests/bugs/moddata/bug22489_2

   1 puts "================"
   2 puts "OCC22489"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # BRepClass3d_SolidClassifier::PerformInfinitePoint() gives wrong result on the given solid
   7 #######################################################################
   8
   9 set BugNumber OCC22489
  10
  11 restore [locate_data_file bug22489_sew1.brep] s
  12
  13 mksol b s
  14
  15 point p 1000 1000 1000
  16
  17 set res [split [bclassify b p] ]
  18
  19 set ll [llength ${res}]
  20 if {$ll < 4} {
  21    puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
  22 } else {
  23    if {[regexp {The point is OUT of shape} $res]} {
  24       puts "OK ${BugNumber}"
  25    } else {
  26       puts "Faulty ${BugNumber}"
  27    }
  28 }
  29