1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-09 18:50:54 +03:00
occt/tests/bugs/modalg_4/bug755_1
ski 58cf74e0c0 0025945: Make stable checking of shape global properties in tests
- Added function checkprops, set default tolerance parameter to 1.0e-4
- Using "area" instead of "square".
- Options "-equal\notequal" isn't used together with "-s" in blend and offset test cases.
- Correct regressions/differences/improvements and CPU problem (set props tolerance to 0.1)
- Corrected test cases to use checkprops proc.
- Correct image difference
- Updated TODOs in test cases.
- Updated test cases to get correct images of result shape
2015-12-10 16:56:03 +03:00

36 lines
770 B
Plaintext
Executable File

puts "========"
puts "OCC755"
puts "SAM1607"
puts "(case 1)"
puts "========"
puts ""
####################################################################
##Result of cut of capteur2 from capteur1 is a solid. It must be a compound, as it consists of 2 bodies.
####################################################################
restore [locate_data_file OCC755_1.brep] a1
checkshape a1
restore [locate_data_file OCC755_2.brep] a2
checkshape a2
bcut result a1 a2
set wt_is [whatis result]
set lth [llength $wt_is]
if {$lth < 5} {
puts "Faulty OCC755 (case 1)"
} else {
if {[regexp {COMPOUND} $wt_is] == 1} {
puts "OCC755 OK (case 2)"
} else {
puts "Faulty OCC755 (case 2)"
}
}
checkprops result -s 1.57358e+06
checkshape result
set 2dviewer 0