tests/bugs/modalg_4/bug825

   1 puts "TODO OCC12345 ALL: Faulty OCC825"
   2 puts "TODO OCC12345 ALL: Error : The command is not valid. The square is"
   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 0] } ] } {
  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     checkshape res1
  33     renamevar res2 result
  34 }
  35
  36 set square 0
  37 set 2dviewer 1