tests/bugs/modalg_5/bug25584

   1 puts "================"
   2 puts "OCC25584"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Wrong result obtained by PerformInfinitePoint Test
   7 #######################################################################
   8
   9 restore [locate_data_file t6.rle] res_1
  10
  11 explode res_1
  12
  13 shape z so
  14 add res_1_3 z
  15
  16 vprops z
  17
  18 set res [xclassify z]
  19 if { [regexp "IN" $res] == 1 } {
  20    puts "OK : Good result obtained by PerformInfinitePoint Test"
  21 } else {
  22    puts "Error : Wrong result obtained by PerformInfinitePoint Test"
  23 }