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 file delete -force ${tmp}/2
  21
  22 set log [OCC181 OCC181 ${imagedir} ${tmp}/2/2/3 0]
  23
  24 set list [split ${log}]
  25 set ll [llength ${list}]
  26 set status [lindex ${list} [expr ${ll} - 2] ]
  27
  28 if { ${status} == "TRUE"} then {
  29     puts "OCC181: OK"
  30 } else {
  31     puts "OCC181: Error"
  32 }
  33