tests/bugs/heal/bug26735

   1 puts "TODO OCC26735 ALL: Error : Adjacent perpendicular edges are detected as overlapped"
   2
   3 puts "============"
   4 puts "OCC26735"
   5 puts "============"
   6 puts ""
   7 ###########################################################################################
   8 ##  Adjacent perpendicular edges are detected as overlapped by DRAW command "checkoverlap".
   9 ###########################################################################################
  10
  11 restore [locate_data_file bug26735_PartialOverlap_OCOverlapValidatorWire.brep] w1
  12
  13 explode w1 e
  14
  15 set Log [checkoverlapedges w1_1 w1_2 0.01 0.01]
  16 set Message "Edges is overlaped"
  17
  18 if { [regexp ${Message} ${Log} ] == 1 } {
  19     puts "Error : Adjacent perpendicular edges are detected as overlapped"
  20 } else {
  21     puts "OK : Adjacent perpendicular edges are not detected as overlapped"
  22 }
  23
  24 smallview
  25 fit
  26 checkview -screenshot -2d -path ${imagedir}/${test_image}.png