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/pro19653

30 lines
801 B
Plaintext
Executable File

puts "TODO OCC12345 ALL: Faulty : TEST FAILED"
#puts "TODO OCC12345 ALL: Error : The length of result shape is"
puts "============"
puts "PRO19653"
puts "BREPALGO_BOOLEANOPERATION does not return result."
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="
restore [locate_data_file pro19653a.brep] a
checkshape a
restore [locate_data_file pro19653b.brep] b
checkshape b
bsection result a b
explode result e
checkshape result_1
explode a e
regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full ll_1
regexp {Mass +: +([-0-9.+eE]+)} [lprops a_4] full ll_2
if { $ll_1 != $ll_2 } {
puts "Faulty : TEST FAILED"
} else {
puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result"
}
set length 228.265
set 2dviewer 0