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 checknbshapes result -shell 1 -compound 1 -m "result should be a shell, but not a compound of faces"
  17
  18 set square 45000
  19 set 2dviewer 0