61c421bf |
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 | |