mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
47 lines
1.2 KiB
Plaintext
47 lines
1.2 KiB
Plaintext
puts "TODO ?OCC12345 ALL: OCC309: Error 2"
|
|
|
|
puts "================"
|
|
puts "OCC309"
|
|
puts "================"
|
|
puts ""
|
|
|
|
pload QAcommands
|
|
|
|
set result [OCC309]
|
|
|
|
set ll [llength ${result}]
|
|
if { ${ll} != 2 } {
|
|
puts "result = ${result}"
|
|
puts "length = ${ll}"
|
|
puts "OCC309: Error 0"
|
|
} else {
|
|
set result1 [lindex ${result} 0]
|
|
set result2 [lindex ${result} 1]
|
|
set CurrentDirectory [pwd]
|
|
set UpTrek [file dirname ${CurrentDirectory}]
|
|
if { [string compare $tcl_platform(platform) "windows"] != 0} {
|
|
set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
|
|
set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
|
|
} else {
|
|
set res1 [ string range $result1 1 [expr [string length $result1] -2 ] ]
|
|
set res2 [ string range $result2 1 [expr [string length $result2] -2 ] ]
|
|
}
|
|
if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
|
|
puts "OCC309: OK 1"
|
|
} else {
|
|
puts "result1 = ${result1}"
|
|
puts "res1 = ${res1}"
|
|
puts "CurrentDirectory = ${CurrentDirectory}"
|
|
puts "OCC309: Error 1"
|
|
}
|
|
if {[string compare ${res2} "${UpTrek}"] == 0} {
|
|
puts "OCC309: OK 2"
|
|
} else {
|
|
puts "result2 = ${result2}"
|
|
puts "res2 = ${res2}"
|
|
puts "UpTrek = ${UpTrek}"
|
|
puts "OCC309: Error 2"
|
|
}
|
|
}
|
|
|