OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-14 13:30:48 +03:00
Code Activity

Test for 0024251: Command checkshape does not report a problem on first call after fixshape

Browse Source
This commit is contained in:
apv
2017-07-25 18:22:09 +03:00
parent 63bd365eed
commit 958afe98a1
1 changed files with 38 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
tests/bugs/modalg_7/bug24251 Normal file
View File

@@ -0,0 +1,38 @@
puts "REQUIRED All: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC24251 ALL: ERROR: OCC24251 is reproduced."
puts "========"
puts "OCC24251"
puts "========"
puts ""
#############################################################################
# Command checkshape does not report a problem on first call after fixshape
#############################################################################
restore [locate_data_file bug24899_TheHull.brep] r0
# First usage of checkshape command for r0
set bug_info_initial [checkshape r0]
# Calculate number of problematic sub-shapes before using fixshape command
set bug_info_initial [lindex $bug_info_initial [expr {[llength $bug_info_initial] - 1}]]
set bug_info_initial [string trim [string range $bug_info_initial [expr {[string last "_" $bug_info_initial] + 1}] [expr {[string length $bug_info_initial] - 1}]]]
fixshape r r0
# Second usage of checkshape command for r0
set bug_info_final [checkshape r0]
# ERROR if "This shape seems to be valid" after checkshape command
if {$bug_info_final == "This shape seems to be valid"} {
puts "ERROR: OCC24251 is reproduced. Second usage of checkshape command does not show problems"
} else {
# Calculate number of problematic sub-shapes on after using fixshape command
set bug_info_final [lindex $bug_info_final [expr {[llength $bug_info_final] - 1}]]
set bug_info_final [string trim [string range $bug_info_final [expr {[string last "_" $bug_info_final] + 1}] [expr {[string length $bug_info_final] - 1}]]]
# ERROR if result of first usage checkshape command is different from the second usage
if {$bug_info_final != $bug_info_initial} {
puts "ERROR: OCC24251 is reproduced. Second usage of checkshape command shows $bug_info_final problems, but first usage shows $bug_info_initial"
}
}