tests/bugs/fclasses/bug181_2

   1 puts "TODO OCC12345 ALL: OCC181: Error"
   2
   3 puts "========"
   4 puts "OCC181"
   5 puts "OCC701"
   6 puts "========"
   7 ######################################################
   8 # Resource_Manager class doen't return status of saving resources in a file.
   9 ######################################################
  10 # Add method BuildPath to OSD_Directory
  11 ######################################################
  12
  13 # Clear tmp-data
  14 ######################################################################
  15 set tmp ${imagedir}
  16 ######################################################################
  17
  18 pload QAcommands
  19
  20 set log [OCC181 OCC181 ${imagedir} ${tmp}/2/2/3 0]
  21
  22 set list [split ${log}]
  23 set ll [llength ${list}]
  24 set status [lindex ${list} [expr ${ll} - 2] ]
  25
  26 if { ${status} == "TRUE"} then {
  27     puts "OCC181: OK"
  28 } else {
  29     puts "OCC181: Error"
  30 }
  31
  32 file delete -force ${tmp}/2