tests/bugs/modalg/bug919

   1
   2 puts "======="
   3 puts "OCC919"
   4 puts "SAM1623"
   5 puts "======="
   6 puts ""
   7 #############################
   8 ## Impossible to fuse the shapes.
   9 ##############################
  10
  11 restore [locate_data_file OCC919.brep] a
  12
  13 explode a
  14
  15 # See comment in CR23244:
  16 restore [locate_data_file OCC919-PROC.brep] a_1
  17 #
  18
  19 puts [checkshape a_1]
  20 puts [checkshape a_2]
  21
  22 if { [ catch { bfuse result a_1 a_2} catch_result ] } {
  23     puts "Faulty OCC919 (case 1)"
  24 } else {
  25     if { [ catch { checkshape result } catch_result ] } {
  26         puts "Faulty OCC919 (case 2)"
  27     } else {
  28         puts "OCC919 OK"
  29     }
  30 }
  31
  32 set square 272591.
  33 set 2dviewer 0