tests/bugs/modalg_4/bug825

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