1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00
occt/tests/bugs/modalg_1/buc60744
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

50 lines
1.3 KiB
Plaintext
Executable File

pload QAcommands
puts "========================"
puts "BUC60744"
puts "========================"
puts ""
restore [locate_data_file buc60744a.brep] a
restore [locate_data_file buc60744b.brep] b
set che [checkshape a]
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty BUC60744 (shape 1): Source shape is invalid. It was detected by Checkshape command"
puts "Body of the script was NOT executed"
renamevar a result
} else {
puts "BUC60744 OK (shape 1): Source shape is valid"
set che [checkshape b]
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty BUC60744 (shape 2): Source shape is invalid. It was detected by Checkshape command"
puts "Body of the script was NOT executed"
renamevar b result
} else {
puts "BUC60744 OK (shape 2): Source shape is valid"
ksection result a b 1000 0.0001 0.00001 0
set ne [llength [explode result e]]
set nv [llength [explode result v]]
if {$ne >= $nv} {
puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
}
}
}
bsection result a b
set ne [llength [explode result e]]
set nv [llength [explode result v]]
if {$ne >= $nv} {
puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
}
checkprops result -l 228.386
checkshape result
checksection result
set 2dviewer 0