1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
occt/tests/bugs/modalg_2/bug22864_1
jgv 59694b5da3 0029861: Modeling Algorithms - BiTgte_Blend gives exception
The algorithm has been corrected to avoid exception.
Now both Draw commands "brollingball" and "rollingball" give correct results.
Test cases "offset faces_type_a A3, A4, A9" are good now.
2018-07-20 16:58:12 +03:00

72 lines
1.7 KiB
Plaintext

puts "============"
puts "OCC22864"
puts "============"
puts ""
##############################################################################################
# The algorithm BiTgte_Blend obtains instable results
##############################################################################################
set BugNumber OCC22864
restore [locate_data_file bug22864_face1.brep] f1
restore [locate_data_file bug22864_face2.brep] f2
shape aShape C
add f1 aShape
add f2 aShape
set status 0
set Numbers 11
for {set i 0} {$i < ${Numbers}} {incr i} {
puts "i=$i"
rollingball result aShape 15 @ f1 f2
checknbshapes result -vertex 2 -edge 3 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 8
set aFile $imagedir/${test_image}.brep
puts "aFile=${aFile}"
file delete ${aFile}
if { [file exists ${aFile}] } {
puts "There is old ${aFile} file; Error"
set status 1
}
save result ${aFile}
catch {exec chmod 777 ${aFile}}
if { ![file exists ${aFile}] } {
puts "There is not ${aFile} file; save command: Error"
set status 1
}
set fp [open ${aFile} "r"]
set Log [read -nonewline ${fp}]
close ${fp}
#
if {$i == 0} {
set Standard_Log ${Log}
} else {
set info_result [string compare ${Log} ${Standard_Log}]
if {${info_result} == 0} {
# Log == Standard_Log
puts "Log == Standard_Log"
} else {
# Log != Standard_Log
set status 1
puts "Log != Standard_Log"
}
}
}
# Resume
puts ""
if {${status} == 0} {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}
checkprops result -s 8464.91
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png