1 puts "TODO OCC12345 ALL: Faulty : TEST FAILED"
2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
6 puts "BREPALGO_BOOLEANOPERATION does not return result."
7 puts "=================================="
8 puts "It takes visual check for this BUG"
9 puts "=================================="
11 restore [locate_data_file pro19653a.brep] a
13 restore [locate_data_file pro19653b.brep] b
20 regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full ll_1
21 regexp {Mass +: +([-0-9.+eE]+)} [lprops a_4] full ll_2
22 if { $ll_1 != $ll_2 } {
23 puts "Faulty : TEST FAILED"
25 puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result"