tests/bugs/modalg_1/buc60787_1

   1 puts "========"
   2 puts "BUC60787"
   3 puts "BUC60783"
   4 puts "========"
   5
   6 #restore Common_Shell_Case2.brep S1
   7 #restore Common_Solid_Case2.brep S2
   8
   9 restore [locate_data_file buc60787a.brep] S1
  10 checkshape S1
  11 restore [locate_data_file buc60787b.brep] S2
  12 checkshape S1
  13
  14 bcommon result S1 S2
  15
  16 set nb_info [nbshapes result]
  17 regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
  18 regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
  19
  20 if { $err != 1 || $err1 != 1} {
  21     puts "Faulty : result should be a shell, but not a compound of faces"
  22 } else {
  23     puts "BUC60787 - OK"
  24 }
  25
  26 set square 45000
  27 set 2dviewer 0