tests/bugs/caf/bug158

   1 puts "=============="
   2 puts "OCC158"
   3 puts "=============="
   4
   5 NewDocument D MDTV-Standard
   6
   7 ##################################################################
   8 if { [catch {set res [SaveAs D ${imagedir}/OCC158.std]}] != 0 } {
   9   puts "OCC158: Error"
  10 } else {
  11     file delete ${imagedir}/OCC158.std
  12 }
  13
  14
  15