tests/bugs/caf/bug22788_2

   1 puts "================"
   2 puts "OCC22788"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # Exception during closing of document due to corrupted memory.
   7 ######################################################################################
   8
   9 set BugNumber OCC22788
  10
  11 set aFile [locate_data_file OCC22788.cbf]
  12
  13 Open ${aFile} D
  14
  15 GetShape D 0:2 result
  16 smallview
  17 fit
  18
  19 set catch_status 0
  20 if { [catch {Close D} catch_result] } {
  21   set catch_status 1
  22 }
  23
  24 if { ${catch_status} != 0 } {
  25    puts "Faulty ${BugNumber}"
  26 } else {
  27    puts "OK ${BugNumber}"
  28 }
  29
  30 checkprops result -s 220000
  31 checkshape result
  32 checkview -display result -2d -path ${imagedir}/${test_image}.png