Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60788_3
CommitLineData
a87752f3 1puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
2puts "TODO OCC12345 ALL: Error : The square of result shape is"
3
4puts "========"
5puts "BUC60788"
6puts "case 2"
7puts "========"
8
9#restore Common_Shell_Case2.brep S1
10#restore Common_Solid_Case2.brep S2
11
12restore [locate_data_file buc60788c.brep] S1
13puts [checkshape S1]
14restore [locate_data_file buc60787b.brep] S2
15puts [checkshape S1]
16
17bcommon result S1 S2
18
19set nb_info [nbshapes result]
20regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
21regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
22
23if { $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}
28set square 0
29set 2dviewer 0