tests/bugs/xde/bug22822

   1 puts "================"
   2 puts "OCC22822"
   3 puts "================"
   4 puts ""
   5 ######################################################################################
   6 # Skipping of the first and the last edges of a wire for opened wires
   7 ######################################################################################
   8
   9 set BugNumber OCC22822
  10
  11 restore [locate_data_file OCC22822-selfIntersectingOpenWire.brep] result
  12
  13 set aList [checkselfintersection result]
  14
  15 if { [regexp {A self-intersecting wire.} $aList] } {
  16    puts "OK ${BugNumber}"
  17 } else {
  18    puts "Faulty ${BugNumber}"
  19 }
  20
  21 set length 579.551
  22 set 3dviewer 0