puts "=========="
puts "OCC23951"
puts "=========="
puts ""
#####################################################################################
# Visibility of free, simple shapes not saved when writing XCAF Document info STEP
#####################################################################################

pload QAcommands

set FilePath ${imagedir}/bug23951_test_box.step

file delete -force ${FilePath}
set info [OCC23951 ${FilePath}]

if { [regexp "Write  Done" $info] != 1 } {
  puts "Error: file was not written"
} else {
  puts "OK: file was written"
}

stepread ${FilePath} a *
axo
fit

set only_screen_axo 1
