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/buc60712
apn 352ffd7358 Adding test cases for chl grid
Test case tests/bugs/modalg/dxf906 was renamed to bug889
Adding test cases to tests/bugs/moddata
Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx
Modified test case bugs vis buc60738
Added test cases to modalg and moddata
Added test cases to caf and fclasses
Added test cases to group heal
2012-12-21 16:39:38 +04:00

51 lines
998 B
Plaintext
Executable File

puts "=========="
puts "BUC60712"
puts "=========="
puts ""
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="
#
# OCC22070: Grid Tests: CHL set, detected problems
# Problems:
# The shape buc60712a.brep is self-interferred.
# thus it can not be used as the argument for Boolean Operation Algorithm.
#
# Proposals:
# The Case chl/902/F3 should be removed or rewritten:
restore [locate_data_file buc60712a.brep] a
checkshape a
restore [locate_data_file buc60712b.brep] b
checkshape b
# Recompute "a" shape
explode a f
bop a_1 a_2
bopfuse r12
bop a_3 a_4
bopfuse r34
bop r12 r34
bopfuse r
# Start boolean operation
bop r b
bopsection result
# Check result
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
# Resume
if { $num != 0 } {
puts " Faulty BUC60712: Result shape is INcorrect !!! "
} else {
puts "BUC60712 OK: Result shape is correct "
}
set length 1.88145
set 2dviewer 0