Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_1 / buc60787_1
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 "BUC60787"
6puts "BUC60783"
7puts "========"
8
9#restore Common_Shell_Case2.brep S1
10#restore Common_Solid_Case2.brep S2
11
12restore [locate_data_file buc60787a.brep] S1
352ffd73 13checkshape S1
a87752f3 14restore [locate_data_file buc60787b.brep] S2
352ffd73 15checkshape S1
a87752f3 16
17bcommon result S1 S2
18
19set nb_info [nbshapes result]
a87752f3 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 "BUC60787 - OK"
27}
28
29set square 0
30set 2dviewer 0