Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60787_1
1 puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
3
4 puts "========"
5 puts "BUC60787"
6 puts "BUC60783"
7 puts "========"
8
9 #restore Common_Shell_Case2.brep S1
10 #restore Common_Solid_Case2.brep S2
11
12 restore [locate_data_file buc60787a.brep] S1 
13 puts [checkshape S1]
14 restore [locate_data_file buc60787b.brep] S2
15 puts [checkshape S1]
16
17 bcommon result S1 S2
18
19 set nb_info [nbshapes result]
20
21
22 regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
23 regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
24
25 if { $err != 0 || $err1 != 1} {
26     puts "Faulty : result should be a shell, but not a compound of faces"
27 } else {
28     puts "BUC60787 - OK"
29 }
30
31 set square 0
32 set 2dviewer 0