Adjusting bugs group for current state of OCCT
[occt.git] / tests / bugs / fclasses / bug309
CommitLineData
61c421bf 1puts "================"
2puts "OCC309"
3puts "================"
4puts ""
5
6pload QAcommands
7
8set result [OCC309]
9
10set ll [llength ${result}]
11if { ${ll} != 2 } {
12 puts "result = ${result}"
13 puts "length = ${ll}"
14 puts "OCC309: ERROR 0"
15} else {
16 set result1 [lindex ${result} 0]
17 set result2 [lindex ${result} 1]
18 set CurrentDirectory [pwd]
19 set UpTrek [file dirname ${CurrentDirectory}]
20 if { [string compare $tcl_platform(platform) "windows"] != 0} {
21 set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
22 set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
23 } else {
24 set res1 [ string range $result1 1 [expr [string length $result1] -2 ] ]
25 set res2 [ string range $result1 1 [expr [string length $result2] -8 ] ]
26 }
27 if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
28 puts "OCC309: OK 1"
29 } else {
30 puts "result1 = ${result1}"
31 puts "res1 = ${res1}"
32 puts "CurrentDirectory = ${CurrentDirectory}"
33 puts "OCC309: ERROR 1"
34 }
35 if {[string compare ${res2} "${UpTrek}"] == 0} {
36 puts "OCC309: OK 2"
37 } else {
38 puts "result2 = ${result2}"
39 puts "res2 = ${res2}"
40 puts "UpTrek = ${UpTrek}"
41 puts "OCC309: ERROR 2"
42 }
43}
44