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