tests/bugs/modalg_6/bug27746_3

   1 puts "========"
   2 puts "OCC27746"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Incomplete result of SECTION operation
   7 #################################################
   8
   9 restore [locate_data_file bug27746_first.brep] b1
  10 restore [locate_data_file bug27746_second.brep] b2
  11
  12 explode b1 f; compound b1_60 b1_61 b1
  13 explode b2 f; compound b2_21 b2_37 b2
  14 donly b1 b2
  15
  16 bclearobjects
  17 bcleartools
  18 baddobjects b1
  19 baddtools b2
  20 bfillds
  21 bbop result 4
  22
  23 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
  24 if { $nbv != 2 } { puts "Error : Section is incorrect" }
  25
  26 checkprops result -l 4.39869