Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug19653
1 puts "TODO OCC12345 ALL: Faulty : TEST FAILED"
2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
3
4 puts "============"
5 puts "PRO19653"
6 puts "BREPALGO_BOOLEANOPERATION does not return result."
7 puts "=================================="
8 puts "It takes visual check for this BUG"
9 puts "=================================="
10
11 restore [locate_data_file pro19653a.brep] a 
12 puts [checkshape a]
13 restore [locate_data_file pro19653b.brep] b
14 puts [checkshape b]
15 bsection result a b
16
17 explode result e
18 checkshape result_1
19 explode a e
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"
24 } else {
25     puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result"
26 }
27
28 set length 0
29 set 2dviewer 0