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"
9 #restore Common_Shell_Case2.brep S1
10 #restore Common_Solid_Case2.brep S2
12 restore [locate_data_file buc60788c.brep] S1
14 restore [locate_data_file buc60787b.brep] S2
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
23 if { $err != 0 || $err1 != 1} {
24 puts "Faulty : result should be a shell, but not a compound of faces"