tests/bugs/caf/bug158

   1 puts "=============="
   2 puts "OCC158"
   3 puts "=============="
   4
   5 NewDocument D BinOcaf
   6
   7 set aTmpFile ${imagedir}/${casename}.cbf
   8 if { [catch {set res [SaveAs D ${aTmpFile}] }] != 0 } {
   9   puts "OCC158: Error"
  10 }
  11
  12 file delete -force $aTmpFile