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_1.std }
  12
  13 if { [catch { OCC381_Save D } ] } {
  14     puts "OCC381: Error"
  15 } else {
  16     catch { exec chmod 777 ${imagedir}/OCC381_1.std }
  17     file delete -force ${imagedir}/OCC381_1.std
  18 }