tests/bugs/modalg_4/bug825

   1 puts "TODO OCC25915 ALL: Faulty OCC825"
   2 puts "TODO OCC25915 ALL: Faulty shapes in variables faulty_1 to faulty_"
   3
   4 pload QAcommands
   5
   6 puts "============"
   7 puts "OCC825"
   8 puts "============"
   9 puts ""
  10 ######################################
  11 ## BRepAlgoAPI_Cut fails on sphere and b-spline face
  12 ######################################
  13 ## (old topology)
  14 #####################################
  15
  16 if { [ catch { set info_result [OCC825 a1 a2 a3 res1 res2] } ] } {
  17     puts "Faulty OCC825"
  18 } else {
  19     if { [regexp {FAILED} $info_result] } {
  20         puts "Faulty OCC825"
  21     }
  22
  23     set ExplodeList [explode res1]
  24     if {[llength ${ExplodeList}] < 1} {
  25         puts "Faulty OCC825"
  26     }
  27
  28     set ExplodeList [explode res2]
  29     if {[llength ${ExplodeList}] < 1} {
  30         puts "Faulty OCC825"
  31     }
  32
  33     checkshape res1
  34     checkprops res1 -s 5890.42
  35     checknbshapes res1 -face 2 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 15
  36
  37     renamevar res2 result
  38 }
  39
  40 checkshape result
  41 checkprops result -s 5890.42
  42
  43 checkview -display result -2d -path ${imagedir}/${test_image}.png
  44
  45