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 { |
b7a3c470 |
26 | set res1 [ string range $result1 3 [expr [string length $result1] -2 ] ] |
27 | set res2 [ string range $result2 3 [expr [string length $result2] -2 ] ] |
28 | set CurrentDirectory [ string range $CurrentDirectory 2 [expr [string length $CurrentDirectory] -1 ]] |
29 | set UpTrek [ string range $UpTrek 2 [expr [string length $UpTrek] -1 ]] |
61c421bf |
30 | } |
31 | if {[string compare ${res1} "${CurrentDirectory}"] == 0} { |
32 | puts "OCC309: OK 1" |
33 | } else { |
34 | puts "result1 = ${result1}" |
35 | puts "res1 = ${res1}" |
36 | puts "CurrentDirectory = ${CurrentDirectory}" |
a8676008 |
37 | puts "OCC309: Error 1" |
61c421bf |
38 | } |
39 | if {[string compare ${res2} "${UpTrek}"] == 0} { |
40 | puts "OCC309: OK 2" |
41 | } else { |
42 | puts "result2 = ${result2}" |
43 | puts "res2 = ${res2}" |
44 | puts "UpTrek = ${UpTrek}" |
a8676008 |
45 | puts "OCC309: Error 2" |
61c421bf |
46 | } |
47 | } |
48 | |