0023457: Slow text rendering
[occt.git] / tests / bugs / fclasses / bug309
CommitLineData
746bb46a 1puts "TODO ?OCC12345 ALL: OCC309: ERROR 2"
2
61c421bf 3puts "================"
4puts "OCC309"
5puts "================"
6puts ""
7
8pload QAcommands
9
10set result [OCC309]
11
12set ll [llength ${result}]
13if { ${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 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 {
746bb46a 26 set info [pwd]
27 set CurrentDirectory [string range $info 2 end]
28 set info2 [file dirname ${CurrentDirectory}]
29 set UpTrek [file dirname ${CurrentDirectory}]
30 set res1 [ string range $result1 3 [expr [string length $result1] -2 ] ]
31 set res2 [ string range $result2 3 [expr [string length $result2] -2 ] ]
61c421bf 32 }
33 if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
34 puts "OCC309: OK 1"
35 } else {
36 puts "result1 = ${result1}"
37 puts "res1 = ${res1}"
38 puts "CurrentDirectory = ${CurrentDirectory}"
39 puts "OCC309: ERROR 1"
40 }
41 if {[string compare ${res2} "${UpTrek}"] == 0} {
42 puts "OCC309: OK 2"
43 } else {
44 puts "result2 = ${result2}"
45 puts "res2 = ${res2}"
46 puts "UpTrek = ${UpTrek}"
47 puts "OCC309: ERROR 2"
48 }
49}
50