tests/bugs/modalg_5/bug25555

   1 puts "============"
   2 puts "OCC25555"
   3 puts "============"
   4 puts ""
   5 ############################################################################
   6 # Wrong result of classification of a point relative to solid
   7 ############################################################################
   8
   9 restore [locate_data_file bug25555_p] p
  10 restore [locate_data_file bug25555_z] z
  11
  12 set cls1 [bclassify z p]
  13 if { [regexp {OUT} $cls1] } {
  14     puts "OK : Good result of classification of a point relative to solid"
  15 } else {
  16     puts "Error : Wrong result of classification of a point relative to solid"
  17 }
  18
  19 smallview
  20 fit
  21 checkview -screenshot -2d -path ${imagedir}/${test_image}.png