tests/bugs/modalg_6/bug26673

   1 puts "============"
   2 puts "OCC26673"
   3 puts "============"
   4 puts ""
   5 ##################################
   6 #  BOPTools_AlgoTools::ComputeVV incorrectly checks two vertices for intersection
   7 ##################################
   8
   9 box b -1 -1 0 2 2 2e-7+1e-14
  10 set out [bopargcheck b /RFPCS #F]
  11 if [regexp {Self-Intersections *: YES} $out] {
  12   puts "OK: bopargcheck found the shape self-intersecting"
  13 } else {
  14   puts "Error: bopargcheck must report self-intersections, but it did not"
  15 }