puts "================"
puts "OCC22788"
puts "================"
puts ""
#######################################################################################
# Exception during closing of document due to corrupted memory.
######################################################################################

set BugNumber OCC22788

set aFile [locate_data_file OCC22788.std]

Open ${aFile} D

GetShape D 0:2 result
smallview
fit

set catch_status 0
if { [catch {Close D} catch_result] } {
  set catch_status 1
}

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

checkprops result -s 220000
checkshape result
set 2dviewer 0
