tests/bugs/caf/bug267_2

   1 puts "TODO OCC12345 ALL: OCC267: Error"
   2
   3 puts "========"
   4 puts "OCC267"
   5 puts "========"
   6
   7 ######################################################################
   8
   9 pload QAcommands
  10
  11 NewDocument D MDTV-Standard
  12 file delete ${imagedir}/OCC267.std
  13 catch { OCC267 D ${imagedir}/OCC267.std } status
  14
  15 set list [split ${status}]
  16 set index [lsearch -exact ${list} "CDF_StoreStatus"]
  17
  18 if { ${index} == -1 } then {
  19    puts "OCC267: Error"
  20    puts ${status}
  21 } else {
  22    set CDF_StoreStatus [lindex ${list} [expr ${index} + 2] ]
  23    if { ${CDF_StoreStatus} == "CDF_SS_OK" } then {
  24       puts "OCC267: OK"
  25    } else {
  26       puts "OCC267: ERROR"
  27       puts ${status}
  28       puts "CDF_StoreStatus = ${CDF_StoreStatus}"
  29    }
  30 }
  31