tests/bugs/modalg_4/bug823

   1 pload QAcommands
   2
   3 puts "======="
   4 puts "OCC823"
   5 puts "======="
   6 puts ""
   7 ###############################
   8 ## BRepAlgoAPI_Fuse fails on two cylinders
   9 ###############################
  10
  11 if { [ catch { set info_result [OCC823 a1 a2 result] } ] } {
  12     puts "Faulty OCC823"
  13 } else {
  14     if { [regexp {FAILED} $info_result] } {
  15         puts "Faulty OCC823"
  16     }
  17
  18     set ExplodeList [explode result]
  19     if {[llength ${ExplodeList}] < 1} {
  20         puts "Faulty OCC823 : Resulting shape is empty COMPOUND"
  21     }
  22 }
  23 checkprops result -s 23189.5
  24 checkshape result
  25 checkview -display result -2d -path ${imagedir}/${test_image}.png