tests/bugs/moddata_1/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 shape b So
  14 add s b
  15
  16 point p 1000 1000 1000
  17
  18 set res [split [bclassify b p] ]
  19
  20 set ll [llength ${res}]
  21 if {$ll < 4} {
  22    puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
  23 } else {
  24    if {[regexp {The point is OUT of shape} $res]} {
  25       puts "OK ${BugNumber}"
  26    } else {
  27       puts "Faulty ${BugNumber}"
  28    }
  29 }
  30