tests/bugs/caf/bug381_1

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