tests/bugs/caf/bug381_2

   1 puts "================="
   2 puts "OCC381"
   3 puts "================="
   4 puts ""
   5
   6 pload QAcommands
   7
   8 NewDocument D MDTV-Standard
   9
  10 ######################################################
  11 if { [catch { OCC381_SaveAs D ${imagedir}/OCC381.std}] } {
  12     puts "OCC381: Error"
  13 } else {
  14     file delete ${imagedir}/OCC381.std
  15 }
  16