mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-12 02:40:22 +08:00
25 lines
714 B
Plaintext
25 lines
714 B
Plaintext
puts "================"
|
|
puts "OCC25844"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Command "checkshape" does not detect error for case when degenerated edge does not contain geometric representation.
|
|
#######################################################################
|
|
|
|
restore [locate_data_file bug25843_onewire.brep] b
|
|
|
|
dlog reset
|
|
dlog on
|
|
|
|
checkshape b f
|
|
|
|
set info [dlog get]
|
|
dlog reset
|
|
dlog off
|
|
|
|
if { [regexp "checkshape failure" ${info}] != 1 } {
|
|
puts "Error : Command \"checkshape\" does not detect error for case when degenerated edge does not contain geometric representation."
|
|
} else {
|
|
puts "OK : Command \"checkshape\" work good"
|
|
}
|