puts "================"
puts "OCC23025"
puts "================"
puts ""
#######################################################################
# OCC exception is raised when making an extrusion with draft angle from a simple line
#######################################################################

restore [locate_data_file bug23025_u.brep] u

explode u e
wire w u_1 u_2 u_3

draft result w 0 0 1 0.2 100

checkshape result

checkview -display result -2d -path ${imagedir}/${test_image}.png