puts "============"
puts "OCC5027"
puts "============"
puts ""
######################################################
# Incorrect result translating wire with loops from STEP
######################################################

set BugNumber OCC5027

set filepath [locate_data_file OCC5027.igs]
if [catch { igesread $filepath a * } res] {
    puts "Error ${BugNumber} : here is reading problem"
} else {
    tpcompound result
    checkshape result
    checkprops result -s 159588
    checknbshapes result -vertex 140 -edge 144 -wire 36 -face 31 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 352
    checkview -display result -2d -path ${imagedir}/${test_image}.png
}


