1 puts "================"
3 puts "================"
10 set ll [llength ${result}]
12 puts "result = ${result}"
14 puts "OCC310: ERROR 0"
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} {
23 puts "result1 = ${result1}"
24 puts "Directory = ${Directory}"
25 puts "OCC310: ERROR 1"
27 if {[string compare ${result2} "${UpTrek}"] == 0} {
30 puts "result2 = ${result2}"
31 puts "UpTrek = ${UpTrek}"
32 puts "OCC310: ERROR 2"