mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +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
29 lines
839 B
Plaintext
Executable File
29 lines
839 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC23092"
|
|
puts "================"
|
|
puts ""
|
|
###################################################################################################
|
|
# Error in BRepProj_Projection algorithm: some edges of resulting projected wire are duplicated
|
|
###################################################################################################
|
|
|
|
set BugNumber OCC23092
|
|
|
|
restore [locate_data_file OCC23092-bal8h.brep] h
|
|
restore [locate_data_file OCC23092-bal8s.brep] s
|
|
set info1 [ prj r s h 0 0 1 ]
|
|
set word1 [string compare [lindex ${info1} end] "r_1"]
|
|
don r_1 r_2
|
|
explode r_1 E
|
|
explode r_2 V
|
|
set info2 [ don r_1_10 r_2_1 r_2_2 ]
|
|
set word2 [string compare [lindex ${info2} end] "r_1_10"]
|
|
|
|
# Resume
|
|
puts ""
|
|
if { ${word1} == 0 && ${word2} == 0 } {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|