puts "================"
puts "OCC1540"
puts "================"
puts ""
##########################################################
# exception while writing step file with invisible layer
##########################################################

set BugNumber OCC1540

XNewDoc D
box b 10 10 10
XAddShape D b 1
XAddLayer D invis
XSetLayer D b invis
XSetVisibility D invis 0

set status [ catch { WriteStep D $imagedir/${test_image}.stp } ]

if  { $status == 0 } {
    puts "OK ${BugNumber}"
} else {
    puts "Faulty ${BugNumber}"
}

