0026321: Crash in BRepMesh_FastDiscret::Add
[occt.git] / tests / bugs / fclasses / bug309
CommitLineData
9aa684ed 1puts "TODO ?OCC24296 ALL: OCC309: Error 2"
746bb46a 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}"
a8676008 16 puts "OCC309: Error 0"
61c421bf 17} else {
18 set result1 [lindex ${result} 0]
19 set result2 [lindex ${result} 1]
20 set CurrentDirectory [pwd]
9aa684ed 21 set UpTrek "[file join [file dirname [file dirname ${CurrentDirectory}]] [file tail ${CurrentDirectory}]]"
61c421bf 22 if { [string compare $tcl_platform(platform) "windows"] != 0} {
9aa684ed 23 set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
24 set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
61c421bf 25 } else {
9aa684ed 26 set res1 [ string range $result1 3 [expr [string length $result1] -2 ] ]
27 set res2 [ string range $result2 3 [expr [string length $result2] -2 ] ]
28 set CurrentDirectory [ string range $CurrentDirectory 2 [expr [string length $CurrentDirectory] -1 ]]
29 set UpTrek [ string range $UpTrek 2 [expr [string length $UpTrek] -1 ]]
61c421bf 30 }
31 if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
9aa684ed 32 puts "OCC309: OK 1"
61c421bf 33 } else {
9aa684ed 34 puts "result1 = ${result1}"
35 puts "res1 = ${res1}"
36 puts "CurrentDirectory = ${CurrentDirectory}"
37 puts "OCC309: Error 1"
61c421bf 38 }
39 if {[string compare ${res2} "${UpTrek}"] == 0} {
9aa684ed 40 puts "OCC309: OK 2"
61c421bf 41 } else {
9aa684ed 42 puts "result2 = ${result2}"
43 puts "res2 = ${res2}"
44 puts "UpTrek = ${UpTrek}"
45 puts "OCC309: Error 2"
61c421bf 46 }
47}
48