mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-08 18:40:55 +03:00
22 lines
685 B
Plaintext
Executable File
22 lines
685 B
Plaintext
Executable File
puts "============"
|
|
puts "CR25020"
|
|
puts "============"
|
|
puts ""
|
|
##########################################################################################################
|
|
# checkoverlapedges doesn't have the check for degenerated edges
|
|
##########################################################################################################
|
|
|
|
restore [locate_data_file bug25020_b.brep] b
|
|
explode b e
|
|
|
|
dlog reset
|
|
dlog on
|
|
catch {checkoverlapedges b_1 b_2}
|
|
set info [dlog get]
|
|
|
|
if { [regexp "degenerated" ${info} ] == 1 } {
|
|
puts "OK : checkoverlapedges have the check for degenerated edges"
|
|
} else {
|
|
puts "Error : checkoverlapedges doesn't have the check for degenerated edges"
|
|
}
|