puts "============"
puts "OCC22554"
puts "============"
puts ""
#######################################################################
# Application hangs on selection
#######################################################################

set BugNumber OCC22554

vinit
vpoint p1 0 0 0
vpoint p2 50 0 0
vsegment segment p1 p2
verase p1 p2
vfit

puts "OK ${BugNumber}"

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
