0030679: Attached model hangs most of OCCT common functionality
[occt.git] / tests / bugs / fclasses / bug309
CommitLineData
53a1447a 1puts "TODO OCC24296 Linux: OCC309: Error 2"
2puts "TODO OCC24296 MacOS: OCC309: Error 2"
746bb46a 3
61c421bf 4puts "================"
5puts "OCC309"
6puts "================"
7puts ""
8
9pload QAcommands
10
11set result [OCC309]
12
13set ll [llength ${result}]
14if { ${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