Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60788_3
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 "BUC60788"
6 puts "case 2"
7 puts "========"
8
9 #restore Common_Shell_Case2.brep S1
10 #restore Common_Solid_Case2.brep S2
11
12 restore [locate_data_file buc60788c.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 regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
21 regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
22
23 if { $err != 0 || $err1 != 1} {
24     puts "Faulty : result should be a shell, but not a compound of faces"
25 } else {
26     puts "BUC60788 - OK"
27 }
28 set square 0
29 set 2dviewer 0