a8676008 |
1 | puts "TODO ?OCC12345 ALL: OCC309: Error 2" |
746bb46a |
2 | |
61c421bf |
3 | puts "================" |
4 | puts "OCC309" |
5 | puts "================" |
6 | puts "" |
7 | |
8 | pload QAcommands |
9 | |
10 | set result [OCC309] |
11 | |
12 | set ll [llength ${result}] |
13 | if { ${ll} != 2 } { |
14 | puts "result = ${result}" |
15 | puts "length = ${ll}" |
a8676008 |
16 | puts "OCC309: Error 0" |
61c421bf |
17 | } else { |
18 | set result1 [lindex ${result} 0] |
19 | set result2 [lindex ${result} 1] |
20 | set CurrentDirectory [pwd] |
21 | set UpTrek [file dirname ${CurrentDirectory}] |
22 | if { [string compare $tcl_platform(platform) "windows"] != 0} { |
23 | set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ] |
24 | set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ] |
25 | } else { |
a8676008 |
26 | set res1 [ string range $result1 1 [expr [string length $result1] -2 ] ] |
27 | set res2 [ string range $result2 1 [expr [string length $result2] -2 ] ] |
61c421bf |
28 | } |
29 | if {[string compare ${res1} "${CurrentDirectory}"] == 0} { |
30 | puts "OCC309: OK 1" |
31 | } else { |
32 | puts "result1 = ${result1}" |
33 | puts "res1 = ${res1}" |
34 | puts "CurrentDirectory = ${CurrentDirectory}" |
a8676008 |
35 | puts "OCC309: Error 1" |
61c421bf |
36 | } |
37 | if {[string compare ${res2} "${UpTrek}"] == 0} { |
38 | puts "OCC309: OK 2" |
39 | } else { |
40 | puts "result2 = ${result2}" |
41 | puts "res2 = ${res2}" |
42 | puts "UpTrek = ${UpTrek}" |
a8676008 |
43 | puts "OCC309: Error 2" |
61c421bf |
44 | } |
45 | } |
46 | |