puts "# ======================================================================"
puts "# 0029355: OCCT 6.9.1 persistence restored in OCCT 7.2.0 not working"
puts "# ======================================================================"

pload OCAF MODELING

puts ""
puts "# Check reading of shape from FSD archive"
fsdread [locate_data_file bug29355.fsd] a
checkshape a
checknbshapes a -face 14 -solid 0 -edge 39 -vertex 26

puts ""
puts "# Check that reading fails with expected message on truncated file"
puts "REQUIRED 29355 ALL: Error : 6"
catch {fsdread [locate_data_file bug29355_truncated.fsd] a}