tests/bugs/modalg_1/buc60788_2

   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 "BUC60788"
   6 puts "case 3"
   7 puts "========"
   8
   9 #restore Cut_Shell_Case2.brep S1
  10 #restore Cut_Solid_Case2.brep S2
  11
  12 restore [locate_data_file buc60788e.brep] S1
  13 checkshape S1
  14 restore [locate_data_file buc60787d.brep] S2
  15 checkshape S2
  16
  17 bcut 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 "BUC60788 - OK"
  27 }
  28 set square 0
  29 set 2dviewer 0