tests/bugs/caf/bug24047

   1 puts "============"
   2 puts "OCC24047"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Exception in TPrsStd_AISPresentation during destruction of TDocStd_Document
   7 #######################################################################
   8
   9 pload XDEDRAW
  10
  11 box a 0 0 0 10 10 10
  12 XTestDoc a