tests/bugs/modalg_6/bug27615

   1 puts "========"
   2 puts "OCC27615"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # General Fuse operation error
   7 #################################################
   8
   9 restore [locate_data_file bug27615.brep] p
  10
  11 whatis p
  12 tolerance p
  13 checkshape p
  14 explode p
  15 brunparallel 1
  16 bopcheck p_1
  17 bopcheck p_2
  18 bopargcheck p_1 p_2 -O #F
  19 bop p_1 p_2
  20 bopcommon result
  21 whatis result
  22 explode result
  23 whatis result_1
  24
  25 if { [regexp "This shape seems to be OK" [bopcheck result] ] != 1 } {
  26     puts "Error : The result of General Fuse operation is self-interfered shape"
  27 }
  28
  29 checkshape result_1
  30
  31 checkprops result_1 -v 15287.7 -s 8383.16
  32
  33 checkview -display result_1 -2d -path ${imagedir}/${test_image}.png
  34