tests/bugs/caf/bug381_2

   1 puts "================="
   2 puts "OCC381"
   3 puts "================="
   4 puts ""
   5
   6 pload QAcommands
   7
   8 NewDocument D BinOcaf
   9
  10 ######################################################
  11 if { [catch { OCC381_SaveAs D ${imagedir}/OCC381_2.cbf}] } {
  12     puts "OCC381: Error"
  13 } else {
  14     catch {exec chmod 777 ${imagedir}/OCC381_2.cbf}
  15     file delete -force ${imagedir}/OCC381_2.cbf
  16 }
  17