tests/bugs/modalg_7/bug28892_2

   1 puts "======="
   2 puts "OCC28892"
   3 puts "======="
   4 puts ""
   5 ##################################################
   6 # BOPAlgo_PaveFiller returns status "error: 11" in draw or raises exception in app on the given shapes set
   7 ##################################################
   8
   9 binrestore [locate_data_file bug28892_shape.bin] a
  10 binrestore [locate_data_file bug28892_tools.bin] b
  11
  12 bclearobjects
  13 bcleartools
  14 baddobjects a
  15 explode b
  16 baddtools b_1 b_6 b_12
  17 bfillds
  18 bbuild result
  19
  20 # just check that the operation did not raise an exception and produced any result
  21 checkshape result
  22
  23 if {![regexp "OK" [bopcheck result]]} {
  24   puts "Error: result is self-interfered"
  25 }
  26
  27 # checkview -display result -2d -path ${imagedir}/${test_image}.png