tests/bugs/fclasses/bug310

   1 puts "================"
   2 puts "OCC310"
   3 puts "================"
   4 puts ""
   5
   6 pload QAcommands
   7
   8 set result [OCC310]
   9
  10 set ll [llength ${result}]
  11 if { ${ll} != 2 } {
  12     puts "result = ${result}"
  13     puts "length = ${ll}"
  14     puts "OCC310: ERROR 0"
  15 } else {
  16     set result1 [lindex ${result} 0]
  17     set result2 [lindex ${result} 1]
  18     set Directory "|where|you|want|tmp|qwerty|tmp|"
  19     set UpTrek "|where|you|want|tmp|qwerty|"
  20     if {[string compare ${result1} "${Directory}"] == 0} {
  21         puts "OCC310: OK 1"
  22     } else {
  23         puts "result1 = ${result1}"
  24         puts "Directory = ${Directory}"
  25         puts "OCC310: ERROR 1"
  26     }
  27     if {[string compare ${result2} "${UpTrek}"] == 0} {
  28         puts "OCC310: OK 2"
  29     } else {
  30         puts "result2 = ${result2}"
  31         puts "UpTrek = ${UpTrek}"
  32         puts "OCC310: ERROR 2"
  33     }
  34 }
  35