tests/bugs/modalg_6/bug27124

   1 puts "============"
   2 puts "OCC27124"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Invalid curve on surface in the result of General Fuse operation
   7 ###############################
   8
   9 restore [locate_data_file bug27129_e.brep] e
  10 restore [locate_data_file bug27129_p.brep] p
  11 restore [locate_data_file bug27129_q.brep] q
  12
  13 bclearobjects
  14 bcleartools
  15 baddobjects e
  16 baddtools p q
  17 bfillds
  18 bbuild result
  19 set log [bopargcheck result #f]
  20
  21 set MessageList {
  22 "Faulties for FIRST  shape found : 1"
  23 "Shapes are not suppotrted by BOP: NO"
  24 "Self-Intersections              : NO"
  25 "Check for SI has been aborted   : NO"
  26 "Too small edges                 : NO"
  27 "Bad faces                       : NO"
  28 "Too close vertices              : DISABLED"
  29 "Too close edges                 : DISABLED"
  30 "Shapes with Continuity C0       : NO"
  31 "Invalid Curve on Surface        : YES  Cases\\(1\\)  Total shapes\\(2\\)"
  32 "Faulties for SECOND  shape found : 0"
  33 }
  34
  35 for {set i 1} {$i <= 11} {incr i} {
  36    set str [ lindex ${MessageList} [expr $i - 1] ]
  37    if { [regexp ${str} ${log}] == 1  } {
  38       puts "OK : There is #$i message"
  39    } else {
  40       puts "Error : There is not #$i message"
  41       puts $str
  42    }
  43 }
  44
  45 checkprops result -s 81576.6
  46
  47 set nbshapes_expected "
  48 Number of shapes in shape
  49  VERTEX    : 18
  50  EDGE      : 31
  51  WIRE      : 16
  52  FACE      : 16
  53  SHELL     : 4
  54  SOLID     : 4
  55  COMPSOLID : 0
  56  COMPOUND  : 1
  57  SHAPE     : 90
  58 "
  59 checknbshapes result -ref ${nbshapes_expected} -t -m "solid construction"
  60
  61 checkview -display result -2d -path ${imagedir}/${test_image}.png