0027146: Create command checkplatform
[occt.git] / tests / bugs / fclasses / bug309
1 puts "TODO ?OCC24296 ALL: OCC309: Error 2"
2
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}"
16     puts "OCC309: Error 0"
17 } else {
18     set result1 [lindex ${result} 0]
19     set result2 [lindex ${result} 1]
20     set CurrentDirectory [pwd]
21     set UpTrek "[file join [file dirname [file dirname ${CurrentDirectory}]] [file tail ${CurrentDirectory}]]"
22     if { [checkplatform -windows] } {
23       set res1 [ string range $result1 3 [expr [string length $result1] -2 ] ]
24       set res2 [ string range $result2 3 [expr [string length $result2] -2 ] ]
25       set CurrentDirectory [ string range $CurrentDirectory 2 [expr [string length $CurrentDirectory] -1 ]]
26       set UpTrek [ string range $UpTrek 2 [expr [string length $UpTrek] -1 ]]
27     } else {
28       set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
29       set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
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}"
37       puts "OCC309: Error 1"
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}"
45       puts "OCC309: Error 2"
46     }
47 }
48