tests/bugs/modalg_1/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 checkshape S1
  14 restore [locate_data_file buc60787b.brep] S2
  15 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 "BUC60787 - OK"
  27 }
  28
  29 set square 0
  30 set 2dviewer 0