puts "============"
puts "OCC25843"
puts "============"
puts ""
#######################################################################
# Wire containing degenerated edge is not written to IGES / STEP
#######################################################################

restore [locate_data_file bug25843_onewire.brep] w

set aFile ${imagedir}/bug25843_onewire.stp

catch { file delete ${aFile} }

stepwrite 0 w ${aFile}

if { ![file exists ${aFile}] } {
   puts "Error: Wire containing degenerated edge is not written to STEP file"
} else {
   puts "OK: Wire containing degenerated edge is written to STEP file"
}

catch {exec chmod 777 ${aFile}}