mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
27 lines
914 B
Plaintext
Executable File
27 lines
914 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC23089"
|
|
puts "================"
|
|
puts ""
|
|
##########################################################################################
|
|
# Wrong result done by solid classifier algorithm
|
|
##########################################################################################
|
|
|
|
set BugNumber OCC23089
|
|
|
|
restore [locate_data_file bug23088_Pipe_1.brep] b2
|
|
restore [locate_data_file bug23089_px.draw] px
|
|
set info [ bclassify b2 px ]
|
|
set word1 [string compare [lindex ${info} end] "shape"]
|
|
set word2 [string compare [lindex ${info} end-1] "IN"]
|
|
set word3 [string compare [lindex ${info} end-2] "is"]
|
|
set word4 [string compare [lindex ${info} end-3] "point"]
|
|
set word5 [string compare [lindex ${info} end-4] "The"]
|
|
|
|
# Resume
|
|
puts ""
|
|
if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 && ${word4} == 0 && ${word5} == 0 } {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|