puts "================"
puts "OCC22822"
puts "================"
puts ""
######################################################################################
# Skipping of the first and the last edges of a wire for opened wires
######################################################################################

set BugNumber OCC22822

restore [locate_data_file OCC22822-selfIntersectingOpenWire.brep] result

set aList [checkselfintersection result]

if { [regexp {A self-intersecting wire.} $aList] } {
   puts "OK ${BugNumber}"
} else {
   puts "Faulty ${BugNumber}"
}

checkprops result -l 579.551
checksection result
checkshape result
checkview -display result -3d -path ${imagedir}/${test_image}.png
