mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
afb2781582
Comparator functor corrected to return false in the case of equal elements. Test case added.
40 lines
966 B
Plaintext
40 lines
966 B
Plaintext
puts "============"
|
|
puts "OCC26929"
|
|
puts "============"
|
|
puts ""
|
|
#############################################################################################
|
|
## Extrema_ECC hang/crash in ShapeSplitter
|
|
#############################################################################################
|
|
cpulimit 100
|
|
|
|
restore [locate_data_file OCC26629-face.brep] aF
|
|
restore [locate_data_file OCC26629-edge.brep] aE
|
|
|
|
pload MODELING
|
|
|
|
# Hang check.
|
|
dchrono cr reset
|
|
dchrono cr start
|
|
|
|
set ss ""
|
|
foreach s [explode aE e] {set ss "$ss aF $s"}
|
|
eval splitshape result aF $ss
|
|
|
|
dchrono cr stop
|
|
|
|
set max_time 20.0
|
|
set log [dchrono cr show]
|
|
regexp {CPU user time: ([-0-9.+eE]+) seconds} $log full z
|
|
|
|
|
|
if { $z > ${max_time} } {
|
|
puts "Elapsed time of BRepFeat_SplitShape is more than ${max_time} seconds - Error"
|
|
} else {
|
|
puts "Elapsed time of BRepFeat_SplitShape is less than ${max_time} seconds - OK"
|
|
}
|
|
|
|
# Check result validity.
|
|
checkshape result
|
|
|
|
# Visual check.
|
|
set 2dviewer 1 |